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EDITORIAL 


This Month's Magazine 

This issue of ELBUG covers the two months of August and September, so the next 
issue will be that for October. The contents of this issue have a pronounced visual 
flavour to them. Apart from the three games, all of which provide excellent screen 
displays, there are two further programs of a highly graphical nature. 
'Harmonograph' will produce endless patterns after the style of Spirograph, giving 
many hours of fascinating pleasure, while ‘Build a House’ will probably please our 
younger readers in the way in which the colourful picture of a house and garden is 
built up on the screen. Watch out here for the cat. 


Our series on Electron graphics is now drawing to a close, and this month we show 
how to extend the choice of colours available, by producing all manner of striped 
colours and shades to enhance you own graphics displays. 


Now that interfaces for joy-sticks and printers are becoming quite widely 
available, we have included a most useful and practical application in the form of a 
text editor. This allows you to create and edit text for all sorts of purposes and 
even if you don't yet have a printer with your Electron, may still prove of great 
value in communicating with other ELBUG members and sending us letters and articles 
in the ELBUG office. 


THE EXPANDING ELECTRON 
Acorn tell us that they are now sending out over 20,000 Electrons a month and 
that this is rapidly becoming one of the best selling micros in its price range. 
Many other suppliers are also extending the range of add-ons for the Electron, 
evidenced by several of the stands at the recent Micro User Show at Alexandra 
Palace. We shall be looking at all the new developments for the Electron and expect 
to carry reviews of the latest products in the next issue. 
Mike Williams 


OTICE BOARD NOTICE BOARD NOTICE BOARD NOTICE Bq 


Magazine Cassette 

All the programs in this month's magazine are available on cassette 
together with an additional program by S.Fox which provides a test card on your TV 
or monitor screen to go with our review of monitors in this issue. See the back 
cover for full ordering details. 


MAGAZINE BINDERS 

Several readers have written to us about binders for their copies of ELBUG, and 
we are pleased to announce that the details of this have now been agreed. See the 
inside back cover for further information. 


Hint Winners 
This month we have awarded three £5 prizes for the best hints, and the winners 
are D.Robinson, G.Edwards and N.kelly. Any new hints will always be most welcome. 


Flowers of Hell 
This program, published in our last issue, was unfortunately subject to error 
during production which resulted in one line being omitted from the listing. This 
relates to line 1770 and the correct listing at this point should read as follows: 
1768 VDU23, 227,255,255, 255, 127,63,3,3,1 
1776 VDU23,228,24,126,126,255,255,126,126,24 
We are sorry for this omission. & 
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CODEBREAKER 


By G. Huszeza 


This game makes good use of the range of colours available in mode 2 
to provide an excellent implementation of the game popularly known 
as 'Mastermind', in which you have to break a secret code, based on 


a sequence of colours. 


The program Codebreaker is 
comparatively short and should be typed 
into your Electron and saved on 
cassette before starting to play. In 
the game the computer will secretly set 
up a code of 4 coloured pegs out of a 
total of 6 colours available. You then 
have a maximum of 10 chances to guess 
the correct sequence and win. 


The six colours are numbered from 1 
to 6, and you enter your sequence by 
just pressing the four corresponding 
number keys (those numbered 1 to 6 of 
course) and confirm your guess by 
pressing Return. Until you press Return 
you can delete any or all of the 
colours already selected by using the 
Delete key. As the colours are selected 
they are displayed clearly on the left 
hand side of the screen. 


Once you have completed your latest 
try the computer will tell you how 
close you are by displaying the number 
of 'cows' and 'bulls' you have scored. 
A 'cow' - shown by a white marker or 
peg - indicates the correct colour but 
in the wrong place, and a ‘bull' - 
shown by a black peg - indicates the 
right colour and in the right place. 
Clearly the code is guessed correctly 
when you score four ‘bulls' (black 
markers). 


When you are playing, remember that 
colours may be repeated, both in the 
secret code and in your guess. It will 
also pay you to use your early guesses 
to try and gather useful information, 
rather than guessing the correct code 
outright. 


This is a fascinating and demanding 
game which will keep you entertained 
for hours, particularly with the 
colourful version provided by this 
program. 


PROGRAM NOTES 


this program are as follows: 


title Displays main title page. 
init Initialises variables, user 
Gefined characters and 
sound envelopes. 

Draws the outline of the 
game display. 

startgame Randomly selects the 
secret code. 

Deals with the selection 
of colours by the player. 
Checks the latest guess. 


drawgrid 


choose- 
colours 
check- 
colours 
gameend Displays the score etc 


at the end of a game. 


The two procedures, PROCchoosecolours 
and PROCcheckcolours, also call some 
further short procedures whose 
functions should be obvious from their 
names. They deal with the display and 
removal of coloured pegs as guessed by 
the player, and the display of the 
‘cows' and 'bulls'. 


1@ REM PROGRAM CODEBREAK 
2@ REM VERSION E@.2 

3@ REM AUTHOR G.HUSZCZA 
48 REM ELBUG AUG/SEP.84 
5@ REM PROGRAM SUBJECT TO COPYRIGHT 
68 : 

106 ON ERROR GOTO197@ 

116 DIM YOURPEG3 (4) , PEG (4) , TEMP (4) 
126 MODE] 

138 PROCtitle 


146 REPEAT 

158 MODE2 

166 VDU23,1,0;8;5;0; 

178 VDU24,48; 227576; 1001; 


186 PROCinit 

198 PROCdrawgrid:PROCstartgame 
208 REPEAT 

218 PROCchoosecolours 

228 PROCcheckcolours 

230 UNTIL TRYS%=106 OR FOUND=TRUE 
248 PROCgameend 

258 UNTILNEWGAME=FALSE 

268 VDU23,1,1;0;0; 0; 


The principal procedures - used in 276 MODE6 
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288 END 
298 : 

1608 DEFPROCtitle 

1618 VDU19,0,4,0,9,0: PRINTTAB(15,2) ;"C 
OLOURS": PRINTTAB (18,4) ;"By";TAB(14,6) ;" 
G.Huszeza" 

1926 PRINTTAB (4,10) ;"KEYS ARE AS FOLLO 
WS :-";TAB(6,14);"1-6 FOR COLOURS"; TAB ( 
6,16);"DELETE TO RUB OUT";TAB(6,18);"RE 
TURN TO FINISH TURN" 

1936 PRINT''TAB(4)"Black pegs signify 
a correct colour in the correct hole, 
and a white peg signifies a correct c 
olour in the wrong hole." 

1049 PRINTTAB(13,30);"PRESS ANY KEY":A 
$=GET 

1658 ENDPROC 

1666 : 

1976 DEFPROCinit 

1886 TRYS%=@:FOUND=FALSE: NEWGAME=TRUE: 
PEGX%=1 92: PEGY$=87 :MARKERX%$=48 :MARKERY$ 
=75:BLACKMARKS $=@ : THREE=FALSE 

1996 VDU23,255,60,126,255,255,255,255, 
126,60: VDU23,254,0,8,24,60,60,24,0,0 

1160 ENVELOPE2,2,6,9,0,255,8,9,126,9,@ 
,-126, 126,126 

111@ ENDPROC 

1126 : 

1138 DEFPROCdrawgrid 

1146 GCOLG,132:CLG:GCOL9G,7 

1158 MOVE48, 22: DRAW48, 10@1 : DRAW576, 190 
1: DRAW576, 22: DRAW48, 22 

1168 FORF%=129TO9G4STEP98 :MOVE48, F%:DR 
AW576,F%:NEXT 

1178 MOVE16@,22:DRAW160, 1001 

1188 GCOLG, 8: VDU5: FORF3=87TO969STEP98 : 
FORPS=1 92T0489STEP96 :MOVEP$ , F$: VDU255:N 
EXT, 

1198 VDU4:COLOUR3: PRINTTAB (18,1) "COLOU 
Rs" 

1268 ENDPROC 

1210 : 

1220 DEFPROCstartgame 

1230 FORF%=1T04 

1249 PEG (F%)=RND(7) : IFPEG$(F%)=4 GOTO 
1249 

1258 NEXT 

1260 COLOUR7:FORF%=2TO1 2STEP2:color$=F 
$/2: IFcolor%>=4 THEN color$=color$+1 

1276 COLOURcolor$: PRINTTAB(1@,11+EF%) ;C 
HRS (255) :COLOUR7: PRINTTAB (12,11+F%) ;F3/ 
2:NEXT 

1288 COLOUR]: PRINTTAB(1@,3);"PICK THE" 
7TAB(10,4) ; ""COLOURS";TAB(10,5) ;"YOU WAN 
T";TAB(1@,6) ;"BY";TAB(1@,7) ;"ENTERING"; 
TAB(10,8);"THE NO'S" 

1298 VDUS 

13088 ENDPROC 

1318 : 

1326 DEFPROCchoosecolours 
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1336 F%=1:REPEAT 

1348 REPEAT 

1350 *FX15 

1360 AS=GET 

1376 UNTILA%>48 AND A%<55 OR A$=127 OR 
AS=13 

1388 SOUND1,-15,80,5 

1396 IF A$<>127 AND A&%<>13 AND FS<5 TH 
EN YOURPEG$ (F%)=A%-48: IF YOURPEG$ (F%) >= 
4 THEN YOURPEG$ (F%) =YOURPEG3 (F%) +1 

1466 IF A%<>127 AND A%<>13 AND F%<5 TH 
EN YOURCOLOUR%=YOURPEGS (F%) : PROCplacepe 
g (YOURCOLOUR$ , PEGX% , PEGY%) : PEGX$=PEGX$+ 
96 

141@ IF A%=127 AND PEGX%$<>192 PROCremo 
ve:FS=FS-1 

1426 IF A%>48 AND A%<55 AND F%<>5 THEN 
FS=F%+1 

1438 IF A%=13 AND F%=5 THEN F%=6 

1448 UNTIL FS=6 

1458 PEGYS=PEGY%+98 : PEGX$=192 

1468 TRYSS=TRYS$+1 

1476 ENDPROC 

1486 : 

1498 DEFPROCremove 

1508 PEGX$=PEGX%-96 :GCOLG,@:MOVE PEGX% 
, PEGY$: VDU255 

1516 ENDPROC 

1520 : 

153@ DEFPROCplacepeg (COL%, X3, Y%) 

1548 GCOL@,COL% :MOVEX%, Y$:VDU255 

1558 ENDPROC 

1566 : 

1578 DEFPROCcheckcolours 

1588 FORP%=1T04: TEMP$ (P$) =PEG% (P%) : NEXT 
1596 FORF%=1T04: IFTEMP% (F%) =YOURPEG$ (F 
%) THEN PROCmarker (0) : YOURPEG% (F%) =8: TE 
MP$ (F%) =8 : BLACKMARKS$=BLACKMARKS$+1 
1688 NEXT 

161@ FOR PEGS$=1T04:FINISHED=FALSE:F$= 
1:REPEAT 


> 
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1620 IF YOURPEG% (F%)=TEMP% (PEGS%$) AND 
YOURPEG$ (F$)<>8 AND TEMP% (PEGS%) <>8 THE 
N PROCmarker (7) : YOURPEG3 (F$) =8: FINISHED 
=TRUE 

1630 FS=F%S+1 

164@ UNTIL FINISHED=TRUE OR F%>4 

1656 NEXT 

166@ IF THREE=TRUE THEN MARKERY3=MARKE 
RY%+66:THREE=FALSE ELSE MARKERY$=MARKER 
Y$+98 

1670 MARKERX%$=48 

1680 IF BLACKMARKS%$=4 THEN FOUND=TRUE 
ELSE BLACKMARKS%=@ 

1698 ENDPROC 

1788 : 

171@ DEFPROCmar ker (MARKCOLOUR$) 

1728 GCOL@,MARKCOLOUR$ :MOVEMARKERX$ , MA 
RKERY$:VDU254 

1730 MARKERX$=MARKERX$+48 

174@ IF MARKERX%>96 THEN MARKERX$=48: I 
F (MARKERY$-75)MOD 98=@ THEN MARKERY$=M 
ARKERY%$+32: THREE=TRUE 

175@ SOUND1,-15,45,4 

1768 ENDPROC 

1776 : 

1788 DEFPROCgameend 

1798 VDU4:COLOUR2: PRINTTAB (10,3) ; "GAME 
OVER!" 

1800 FORF$=4T024: PRINTTAB (10,F%) ;SPC(1 
@) NEXT 

181@ COLOUR7: PRINTTAB (19,7) ;"COMPUTER" 
7TAB(1@,8) ;"HAD:-" 


1820 FORF%=1T0O4:COLOURPEG$ (F%) : PRINTTA 
B(10+(F%*2) ,18) ;CHRS (255) :NEXT 

1838 COLOUR7: PRINTTAB(1@,18);"PRESS AN 
Y";TAB (13,19) ; "KEY" 

1846 SOUND1,2,4,50:REM FANFARE 

1858 A%=GET:CLS:COLOUR3 

1860 PRINTTAB (4,1) ;"PERFORMANCE":IF FO 
UND=TRUE THEN PRINTTAB(@,4) ;"YOU FOUND 
THE RIGHT"''"ANSWER IN ";TRYS%;" TURN"; 
:IF TRYS%<>1 THEN PRINT"S" 

1876 COLOURS: PRINTTAB(@,10);:IF TRYS%> 
=1 AND TRYS%<=3 THEN PRINT"YOU WERE LUC 
Ky" 

188G IF TRYS%>3 AND TRYS%<=6 PRINT"YOU 

DID WELL" 

1896 IF TRYS%>6 AND TRYS%<=10 AND FOUN 
D=TRUE PRINT"I'LL BEAT YOU NEXT"! '" 

TIME" 

1998 IF FOUND=FALSE THEN PRINT"YOU LOS 
THU 

1918 COLOUR3: PRINTTAB (6,16) ;"ANOTHER G 
AME (Y/N) ?" 

1920 REPEAT: ANS%=GET: UNTILANS%=78 OR A 
NS$=89 

1930 IF ANS%=78 THEN NEWGAME=FALSE 

1948 CLS 

1956 ENDPROC 

1960 : 

1978 ON ERROR OFF 

1986 MODE6:IF ERR=17 END 

1998 REPORT: PRINT" at line ";ERL 
2608 END 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


FUNCTION KEY LISTING OF ENVELOPES - T.J.L. Young 
This will set a function key to display the parameters of any desired envelope. 
These are listed in the same order as in the ENVELOPE instruction, but the envelope 
number should supplied in response to the prompt: 
*K.GMO.6:INP."Number of envelope";N%:@%$=0:P."Envelope ";N%;:F.t3=6 TO 12:P.","73 
ES=? (&8CG+ (N$-1) *16+t%) :IF(tS>@ AND t%<4) OR (t%>6 AND t%<11) THEN IF E%>127 E%= 
E$-1: TS$=ESEOR&FF:P."—";:P.73; 2N. :P. :@$=1 0: EL. TS=ES: P. TS; 2N. 2 P. 2@8=10[M & 


LISTO ABBREVIATION 
The User Guide lists keywords and their abbreviated forms between pages 134 and 

194, except for the LISTO command for which it says there is none. However, it 

documents LIST as being shortened to L., so the conclusion that shortening LISTO to 

L.O would do the trick, is quite correct. For example L.0] followed by L. (or LIST) 

will cause a program to be listed with a space inserted between the line number and 

the program text. (Remember to use a capital ZO? not zero 

here). (See also the June issue of ELBUG). © 


POSITION OF SYSTEM VARIABLES IN MEMORY - P.S.Ganney 

The system variables @$ and A$ to Z% are all directly accessible at memory 
locations &400 to &468. As each is an integer, each has four bytes designated to it 
such that the value of A% is !464 etc. So it is easy to access these system 
variables from within machine code programs without passing parameters using the 
CALL instruction (see pages 138 and 216 of the User Guide). 
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HARMONOGRAPH 


By David C. Nichols 


Your Electron is capable of some really impressive displays. The 


program listed here from David C. 


Nichols. is a good example of 


graphics combined with some mathematical theory which produces some 


fascinating patterns. 


The original  Harmonograph is a 
simple mechanical device which can draw 
a wide variety of complex and intricate 
patterns. It consists of two rigid 
pendula that are free to swing in any 
direction, with the pivot point some 
way down from the top. A_ table is 
attached to the top of one pendulum and 
a lever with a pen is attached to the 
top of the other. A drawing is made by 
fixing a piece of paper to the table, 
resting the pen on the paper, and 
setting the two pendula swinging. Their 
independent motion produces a relative 
‘wobble' of the pen which makes the 
patterns. By varying the heights of the 
pendulum bobs, and the amount and 
direction of the pendulum swings, 
different types of pattern can be 
produced. 


The program listed here is called 
‘Harmony’, and simulates the operation 
of a Harmonograph, although the program 
ignores friction to keep the coding 
simple. In real life the patterns would 
be determined by the operator setting 
the pendula swinging at random. The 
program simulates this by setting each 
pendulum to an initially random 
position and each is endowed with a 
random degree of momentum. To increase 
the speed of execution, the program 
uses a ‘lookup table’ for the 
complicated trigonometric calculations. 
This is done at the start of a program, 
and values are stored in an array for 
later reference. It is the calculation 
of these values that causes the pause 
at the start of the program. This 
technique was described in Part 4 of 
our series on Electron graphics in 
ELBUG issue 4. 


USING THE PROGRAM 

To use the program, simply type it 
into your-Electron, save a copy on 
tape, and then run it. When it is in 


operation, pressing the Escape key will 
pause the program. If the space bar is 
now pressed, it will carry on from 
where it was, but if Escape is pressed 
again, then it will start drawing 
another pattern. Note that you need to 
press Break to leave the program after 
it has started drawing the patterns on 
the screen, as_ there is no exit 
facility built in. You may like to add 
one yourself, though (this could be 
done by testing if the Shift key is 
pressed at the same time that you press 
Escape with an INKEY -1, and performing 
an END if this test proved true). 


TECHNICAL DETAILS 

The program simulates the 
Harmonograph by considering the motion 
of each pendulum to be composed of two 
sinusoidal components at right angles. 
Each component has an amplitude (Al, 
A2, A3 and A4) and an angle of 
oscillation relative to some reference 
(Rl, R2, R3 and R4). In addition each 
pendulum has a frequency of oscillation 
(Fl and F2). The relative motion of 
each pendulum is plotted on the screen 
giving a pattern similar to the so 
called 'Spirograph' patterns. The 
passage of time is simulated by I% 
being incremented within the REPEAT 
UNTIL loop at lines 35@ to 410. 


10 REM PROGRAM HARMONOGRAPH 

26 REM AUTHOR DAVID C. NICHOLS 

30 REM VERSION E1.3 

40 REM ELBUG AUG/SEPT 1984 

5@ REM PROGRAM SUBJECT TO COPYRIGHT 


1@@ MODE 6:VDU23,1,0;0;0;0; 

118 COLOUR 129:COLOUR@ 

126 PRINTTAB(13,12)"Please wait." 

13@ COLOUR 128:COLOURI 

146 C8=255:0%=C3/4:X$=640: Y$=512:A=486 
158 DIM sin(C%) 

168 FORI$=@TOCS —_> 


ELBUG 


AUG/SEPT 1984 


Volume-1 Issue 9 


ZZ 


178 sin(I%) =SIN(I$*2*PI/C%) 358 REPEAT 

188 NEXT 368 I$=I1$+1 

198 MODE 4:VDU19,0,4,0,0,9,@ 370 T1$=F1*ISANDC$: T2$=BS+F2* I SANDCS 
208 ON ERROR GOTO 446 386 T3$=Q84+T] SANDCS: T4$=QO3+T2$ANDCS 
218 VDU 23,1,0;0;8;98; 398 PLOTM%,X1*sin(T1%) +X2*sin (T3%) +X3 
228 R1=RND(C%) :R2=(R1+Q%) MODCS *sin(T2%) +X4*sin (T4$) +X$,Y1*sin(T1%) +¥2 
238 R3=RND(C%) :R4=(R3+Q%) MODCS *sin(T3%) +Y¥3*sin (T2%) +¥4*sin (T4%) +¥% 
248 Al=RND(A) :A2=RND(A) 468 M%=5 

258 A3=RND(A) :A4=RND(A) 41@ UNTIL FALSE 

26@ F1=RND(1) *7:F2=RND(1) *9:B%=RND (C$) 420 END 

278 Xl=sin(R1) *Al:X2=sin(R2) *A2 430: 

28@ X3=sin(R3) *A3:X4=sin(R4) *A4 44@ IF ERR<>17 REPORT:PRINT" at line 
298 Y1l=sin((Q$+R1)MODC$) *Al ";sERL: END 

388 Y2=sin((Q%+R2) MODCS) *A2 458 ON ERROR GOTO 194 

318 Y3=sin( (Q%+R3)MODC$) *A3 460 REPEAT UNTIL GET=32 

320 Y4=sin((Q%+R4)MODC$) *A4 478 ON ERROR GOTO 44@ 

336 M%=4 480 GOTO 350 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


DISABLING THE KEYBOARD 

It's possibl to disable the oard completely with the command *FX2@1,1. 
However, as you will no longer be able to give any commands, you must be prepared to 
press Break. *FX201,@ does the opposite and enables the keyboard, and as these 
commands can be used from within Basic, it's possible to stop the user of a program 
from interfering with a program until required to do so. & 
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ELBUG, 

P.O.Box 50, 

St Albans, 

Herts. 

August 1984. 
Dear ELBUG Reader, 


Regarding your enquiry about: 


MINI TEXT EDITOR 
by David Graham 


A text editor is one of the most useful computer applications 
that you are likely to find for your Electron. It allows you to 
type in and edit any text, and then to arrange it into your own 
format. Here we present a short program that allows you to do just 
this. 


Using a text editor you will find that it becomes very easy to 
prepare all kinds of text - letters, memos, reports etc. Your 
Electron has the potential to be used as a word processing system 
but at present the software is largely unavailable. We have made a 
start with the short text editor presented here. Using this you can 
enter and edit text, saving this to cassette. You could use these 
new facilities to send text to other Electron users, or to us here 
at ELBUG, and you could also get a printed version with the new 
Plus-1 from Acorn or by running the same program on a BBC micro with 
a printer. 


The text editor uses the Electron's own. Basic editing 
facilities to create and edit files of text. These are entered as 
lines of Basic using the AUTO command, and may be easily saved, 
loaded and edited (and printed out if you have a Plus-] expansion 
and a printer). The program does not allow right-justification or 
closing up of text, so inserting words could cause a line to 
overflow on to the next line - in which case the neatest thing to do 
may be to retype the paragraph. 


The function keys are used extensively in this editor, and you 
may well find it useful to make yourself a simple key strip to put 
above the keyboard. Type the program in, and save it on your 
cassette before using it. To use the text editor you will need to 
run the program first and then use the function keys, pressing Func 
and key 1 or 2 to start. Either key will initiate the AUTO mode for 
text entry, but Func and key 2 will put your address as a letter 
heading (you must replace ELBUG's address with your own here - alter 
lines 1008 to 1630). Alternatively, pressing Func and key 1 will 
erase the address from the machine. 


Simply type in the text that you require, using 'Return' 
when you reach the end of a line. If you go over the end of a line, 
use the Delete key to reduce the line length. As the keys stand, 
function key 6 will tab along 6 spaces, and function key 8 will tab 
across to the right side for entering addresses. Function key 9 
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should be used if you wish to insert a blank line (the Return key 
will not achieve this). Key 9 leaves the cursor indented 6 spaces to 
provide a paragraph indentation. Key 3 is not defined, and may be 
programmed with a word or short sentence that you use often (see the 
User Guide, page 131, for information on how to program the function 
keys). The key functions are all listed in the table below. 


When you have finished entering text, press the 'Escape' 
key. Then use the LIST command and editing keys to see your text and 
make any corrections - just as you would edit a Basic program. 
Pressing function key 7 will return to mode 6 for better 
visibility. You can get back into mode 3. by pressing function 
key 8, which just executes RUN. To return to entering text after you 
have escaped from the line numbering mode, you must type AUTO x 
where x is greater than the number of the last Basic line that holds 
previously entered text. For this reason it is easier to correct 
mistakes at the end rather than as you go along. 


To save the text created, use the SAVE "name" command , 
and save and load as a normal program. This means. that each text 
file saved, conveniently has a copy of the editor with it, and may 
at any time be reloaded and edited further. Remember that when you 
do this you may need to run the ‘'program' first to set up the 
function keys again. 


CUSTOMISING FOR YOUR PRINTER 

For those of you lucky enough to have an Acorn Plus-1 expansion 
and a printer, two modes of printout are available. Pressing 
function key 5 gives a printout with Basic line numbers, for ease of 
subsequent editing, while key 4 calls a routine which ignores the 
line numbers. With or without a printer connected, these options 
will also display the same text on the screen, and shift-control 
together can be used to control the speed of scrolling. A number of 
possible options are available with this form of printout. Those 
chosen will depend on the paper feed mechanism on your printer and 
the number of lines per page required. 


As the program stands it will send a form feed character 
(check your printer manual to see whether your printer responds to 
this) after every 31 lines of text. This may be useful if you are 
printing double spaced text (achieved by typing *FX 6,0 - assuming 
that this command has not already been used). If you require a 
different number of lines printed before a form feed, then alter 
line 31052 of the program, changing the value 31 to the number 
required. If you do not want a_ form feed at all, then erase line 
31852 completely. 


If you want the program to pause after say 50 lines of text have 
been printed so that you can insert another piece of paper, alter 
line 31052 to read IF L%>5@ THEN wait=GET:L3=0. Pressing any key 
when the program pauses in this way, will cause another page to be 
printed. To increase the spacing between lines, insert 31044 IF 
?K%=13 VDU 16,10. Each 1@ in the VDU command adds an extra line feed 
after each line of text. 
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Incidentally, when you select printout without numbers using 
key 4, you are asked to enter a continuation line number. This is 
just to allow you to start printout at any line of a page. Thus, as 
things are presently configured, if you enter 29 here, the program 
will print out 2 lines of text before doing its first form feed. For 
the benefit of printers using a continuous roll of paper (and for 
spacing down the letter head), printout is prefaced with a number of 
blank lines. These may be removed by deleting lines 95@ to 999. At 
the end of the printout the screen will display a word count 
(inflated by the effect of double spaces) and the lines in the last 
page count. 


NOTE 

Because of the way in which text is _ stored, it. is 
necessary to avoid Basic reserved words in capitals, amd the 
abbreviations for them. Thus P.O. Box would be printed as 
PRINTOLDBox on the printout, and as something indecipherable on the 
numberless printout (since Basic words are stored as tokens). 


Table of Key Functions 


Function 
Starts the editor without a 
heading address. 
Starts the editor including 
a heading address. 


Printout without line numbers. 
Printout with line numbers. 


Indentation for start of 
paragraph. 

Returns to mode 6. 

Tab for entering address. 

Used for inserting a blank line. 
Runs the program. 


PROGRAM _NOTE 

Because of the complex way that the function keys are set 
up, it is only possible to put spaces in the definitions by using a 
space, and not an ASCII value of 32. It is important to type in the 
exact number of spaces for the key definitions in lines 25160 to 
25198. For key 6 there are 6 spaces, and there are also 6 spaces for 
key 9. Key 8 is entirely up to you, depending on the size of your 
address but 406 spaces is usually about right. 


Yours sincerely 
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1@ REM PROGRAM MINI TEXT EDITOR 27858 VDU28,9,22,79,@ 
2@ REM VERSION EG.2 63/07/84 27052 PRINTTAB(2,18);"E L BUG Mini 
3@ REM AUTHOR DAVID GRAHAM Text Editor" 
4@ REM ELBUG AUG/SEPT. 84 27054 PRINT"with printout routine by Ia 
50 REM PROGRAM SUBJECT TO COPYRIGHT n Sinclair" 
66 : 27660 PRINTTAB(@,22); 
168 GOTO 25808 27078 PRINT"PRESS KEY Fl OR F2 TO START 
950 (F2 PRINTS ADDRESS)" 
960 27088 PRINT'"OR F4 OR FS FOR PRINTOUT" 
9768 27098 PRINT'''' 
986 27266 ENDPROC 
996 31888 REM PRINTOUT WITHOUT NUMBERS 
1886 ELBUG, 31618 MODE3:PRINT''' 
1010 P O Box 5 31620 PRINTTAB(2)"Please choose continu 
G8, ation or new print- type line number or 
1626 St. Alban zero.";: INPUT A$:L%=VAL (A$) :W3=0 
S; 31022 VDU2:N%=(PAGE+1) 
1636 Herts. 31024 REPEAT 
25608 REM KEY SET ROUTINE 31026 N%=N$+? (N$+2) 
25096 MODE3:*FX18 31028 UNTIL? (N$+1) =10 
25100 *KEY@ RUN|M 31629 J$=N%+2 
25118 *KEY1 DELETE1 808, 1160|M AUTO10606, 31830 REPEAT 
10|M 31032 L8=L3+1 
25128 *KEY2 LIST196G66,1099|M AUTO1100,10 31634 FORM$=1TO6 
|M 31635 PRINTCHRS(1)" "; 
25146 *KEY4 GOTO319680|M 31036 NEXT 
25150 *KEYS VDU2|M LIST166,19000|M VDU3 31037 FORK%= J%$+1 TO N%+?J%-1 
\M 31048 PRINTCHRS (?K%) ; 
5160 *KEY6 " 31042 IF ?K%=32 THEN W3=W%+1 
25170 *KEY7 MODE6 |M 31644 IF ?K%=13 VDU 16 
25180 *KEY8 " 31050 NEXT 
i 31052 IF L$>=31 THEN PRINTCHRS$(12) :L8=0 
25196 *KEY9 "|M " 31078 N&=N$+?JI$: JS=N3+2 
25386 PROCWINDOW 31680 UNTIL ?(N%+3)=244:VDU 3 
26999 END 31690 PRINT" Lines of last page- ";L%'' 
27006 DEF PROCWINDOW "Word total- "W% 
27818 SS="I"+STRINGS (9,CHRS$32) 31106 END 


27638 PRINTTAB (8,23) ; :FORS=1TO8:PRINTSS 


7: NEXT ® 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


REM STATEMENTS IN DATA STATEMENTS - B.Woods 
A REM statement may be inserted at the beginning of a data line provided that 
DATA is followed by a comma and the line is RESTORE'd before use. Here is an 
example: 
10 REM staff DATA,NIGE,ALAN,DAVE,**** 
26 RESTORE 16 
30 REPEAT:READ nameS$: PRINT name$:UNTIL nameS="****" 
46 END 
The REM may not otherwise be used on the same line as DATA. 


BREAK FROM WITHIN BASIC 

It's possible to invoke the same action that takes place when you press the Break 
key. It can be done by the instruction, CALL !-4, which when written in to a program 
will give a fast exit from a program and reset the computer all together. 
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KAYAK KAPERS 
By ‘Surac’ 
rm ST EET 


Kayak Kapers is a superb short game from 'Surac' that features a 
novel amd ingenious sideways scroll to animate the motion of the 
River El Yako as you struggle to avoid the rocks and survive the 


everlasting rapids. 


Kayak Kapers is a fast action game 
in which you paddle your flimsy kayak 
canoe down the fast flowing River El 
Yako, which is strewn with a large 
number of rocks and boulders. Your task 
is to negotiate as far down stream as 
possible, whilst avoiding the rocks - 
to collide with them is fatal in such a 
fragile craft as yours! The river banks 
are equally hostile and will cause your 
immediate destruction if you hit them 
on your way. 


The program is delibertately short 
and demonstrates that good games don't 
have to involve lengthy programs. Of 
course, some features of the display 
have been kept quite simple (the canoe 


“6 tive nature of this 


AUG/SEPT 1984 


for example) but this is as much to 
ensure maximum speed as for any other 
reason. 


The game features three levels of 
play (1 being the easiest, and 3 the 
hardest), with the current level being 
selected at the start of each game. 
Your controls are 'A' to move the canoe 
up, and 'Z' to move it down the screen. 
Your current score is displayed at the 
top, and the latest high score at the 
bottom. Simple on screen prompts are 
displayed. The program uses a specially 
written machine code routine to provide 
the fast sideways scroll, and this has 
been shrunk down to the data statements 
at the end of the program. 


Because of the potentially destruc- 
routine, the 
NE program incorporates a simple error 
RS check, which will exit from the program 


. if the data is wrong. If the data is at 


fault (indicated by the message 'Bad 
S. data'), carefully check the DATA 
statements at the end of the program. 
For extra security, it is advisable to 
save acopy of the program to tape 


, prior to the running of the program. A 


number of the VDU statements contain 
some fairly complex lists, and these 
may cau ysome peculiar effects if 


types ap’ ficonrectly. 
recipe Sores 


wile gBogram is based around a short 
(and Songwhat convoluted) machine code 


2. 
SS 
aS Seer 
» | a 
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routine which is called to scroll the 330 IF A%<>&216F THEN PRINT"Bad data" 
screen for each cycle of the program. : END 
The routine only scrolls the middle 348 ENDPROC 
section of the screen, and resides at 358 : 
&B@G onwards - note that this causes 360 DEF PROCplay 
the function keys to contain some 370 H$=-1:REPEAT 
peculiar definitions. You could easily 380 VDU 22,5:VDU23,1,0;0;9;G; 
use this routine in some of your own 398 VDU 19,0,4,0,8,0 
programs. As presented, the routine 400 VDU 17,129:VDU28,0,4,19,0,12 
does not scroll the whole screen, (the 4180 VDU 28,8,31,19,27,12:VDUI7,130 
top and bottom 6 lines are left 428 VDU 28,1,3,18,1,12 
untouched). This could be altered, but 438 VDU 28,1,36,18,28,12 
this requires a knowledge of screen 449 VDU26,17,128 
memory addresses, and it is beyond the 450 PRINTTAB(4,15)"LEVEL (1-3) "; 
scope of this article to cover these 46@ REPEAT TS=GET-48:UNTILTS>@ANDT%<4 
values. 476 T%=T%$-1: PRINTTAB(4,15)SPC12 
480 FORI$=G0TO3:FORJ%=0TO3:SOUND1,-15, 

In order to incorporate the scroll I$*10+10*J%,2:NEXT, 
routine into your own programs, you 490 S$=G:M%=6:N$=25:X$=15 
need lines 276 to 340 (the procedure to 506 VDU17,1:VDU31,19,6,241:VDU31,19,2 
read in the data) and lines 868 to 960 5,241 
(the data itself) to be present in your 518 PROCscore(@) :REPEAT 
program. Before you can use the scroll 520 VDU17,128,17,2,31,2,X%,240 
routine, you need to call PROCread. The 530 PROCwalls:CALL scroll% 
scroll routine is then used by CALL 546 FS=! (&5800+X3*320+32) 
scroll$ from within Basic (for example, 550 IF INKEY-66 AND xX%<>6 X$=X3-1 
see the end of line 530). 560 IF INKEY-98 AND X%<>25 X%=X$+1 


57@ PROCscore (1) :UNTILFS 
580 VDU17,128:VDUI7,2 


10 REM PROGRAM ERAPIDS 590 VDU31,2,X%,240,17,130,17,1,31,4,16 
20 REM AUTHOR 'SURAC' 600 PRINT"Press RETURN" 
30 REM VERSION E1.@ 616 *FX15 
40 REM ELBUG AUG/SEPT 1984 626 SOUNDG,-15,7,4 
5@ REM PROGRAM SUBJECT TO COPYRIGHT 630 REPEAT UNTILGET=13 
66: 648 UNTIL FALSE 
1006 ON ERROR GOTO 988 658 ENDPROC 
110 MODE 4:*FX18 668 : 
126 PROCchars 67@ DEF PROCscore(A%) S%=S$+A$ 
130 PROCread 688 VDU17,131,17,0:IF S%>H% H3=S% 
140 PROCplay 698 PRINTTAB(2,2)"Score ";S% 
150 END 706 PRINTTAB(2,29)"High ";H% 
160 : 716 ENDPROC 
170 DEF PROCchars 726 : 
186 VDU 23,246,192,240,252,255,255,25 730 DEF PROCwalls 
2,246,192 748 VDU17,1:P$=RND(3)-2:Q$=RND (3) -2 
196 VDU23,241,8,12,62,110,84,120,16,0 750 IF T$=1 AND RND(2)=1 P%=0:Q%=8 
208 VDU23,242,0,48,120,92,116,88,48,0 760 IF M8+P3<6 P= 
218 VDU 23,243,0,56,92,60,116,88,32,9 776 IF N&+Q%>25 Q3=0 
228 VDU 23,244,0,0,12,52,44,24,0,8 786 IF N&+Q&-P%-M8<8 P%=0:08=0 
236 VDU23,245,0,12,62,106,126,44,16,0 790 MB=MB+P8:NS=N3+Q%8 
240 VDU 23,246,0,14,58,126,54,28,8,0 806 VDU31,19,M%,240+RND (6) ,31,19,N%,2 
250 ENDPROC 40+RND (6) 
266: 81 VDU31,19,M$+1,240+RND (6) ,31,19,N% 
278 DEF PROCread -1,240+RND (6) 
286 RESTORE:scrol1$=&B00 820 VDU17,3:FORI%=1TOTS 
296 FORI$=@TO10:READ AS$:FORJ$=GTO7 830 IF RND(4-TS)=1 VDU31,19,RND(N8-M% 
306 ?(scrol1$+J$+1$*8) =EVAL ("&"+MIDS ( -1)+M%,240+RND (6) 
AS,J$*2+1,2)) 840 NEXT: ENDPROC 
316 NEXT, :A$=:FORI$=0T088 850 : 
320 AS$=A%S+scroll1$?1$:NEXT 868 DATA "78A95E8D110BA949" > 18 
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BUILD A HOUSE 


By Nick Day 


This program will delight all those who enjoy seeing colourful and 
detailed pictures being generated by computer. We think these 


results will have particular 


watch with growing anticipation to 


appear. 


The program listed here runs in mode 
2 to provide the maximum number of 
colours. When you run the program, 
after saving it first safely to 
cassette, it will allow you to build up 
a detailed picture of a house and 
garden. Each time the space bar (or any 
other key) is pressed, the next part of 
the picture will be added to the 
existing display and the name of this 
feature will appear at the top of the 
screen. 


The last detail to complete the 
picture is a white cat which will 


randomly appear in one of several 
different places, to provide extra 
interest. 


Once the picture is complete, the 
whole scene is redrawn as it might 
appear at night with the moon shining 
down from above. A few further changes 
then take place to the picture before 
the final display is reached, but it 
would spoil your fun to describe them 
here. 


PROGRAM NOTES 

If you examine the program listing 
you will see that its layout is quite 
obvious, a sequence of instructions 


naming the next feature and calling a 


appeal to younger children, who will 
see where the cat will finally 


aoorknocker 


procedure to draw that part of the 
display. The procedure PROCsopr, which 
is called every time, in turn calls 
three further procedures to create a 
delay, produce a sound, and print the 
name of this part at the top of the 
display. 


The display makes use of many of the 
techniques which we have been 
describing in our’ series on Electron 
graphics, including both user defined 
characters and the drawing and plotting 
of lines and triangles. If you follow 
the program carefully you should be 
able to see how each feature is 
produced. The structure of the program 
also means that it is very easy for you 
to alter any of the display or add some 
additional features of your own. 


1@ REM PROGRAM HOUSE 

28 REM VERSION E@.2 

38 REM AUTHOR N.DAY 

4@ REM ELBUG AUG/SEP. 84 

56 REM PROGRAM SUBJECT TO COPYRIGHT 


106 ON ERROR GOTO 1949 

116 MODE2 

126 ENVELOPE],3,0,0,0,1,1,1,126,-4,0, 
-4,126,80 

130 VDU23,1,0;0;0;0;0;:*FX11, 

140 *FX4,1 —- 
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158 CLS: VDU24, 100; 58; 1200; 860; : VDU28, 
6,4,19,3:GCOLG,134:CLG: inc=8 

166 AS="grass": PROCsopr : PROCdraw (100, 
50,1260,158,2) 

170 AS="wall": PROCsopr : PROCdraw(296,1 
58,808,500,1) 

188 AS="bricks": PROCsopr : PROCbricks 

198 AS="roof": PROCsopr : PROCroof 

206 AS="chimney-stacks" : PROCsopr : PROC 
stacks (1) 

218 AS="chimney-pots" : PROCsopr : PROCpo 
ts 

228 AS="doorway" : PROCsopr : PROCdoor (5) 

230 AS="windows": PROCsopr : PROCwindows 
(5) 

240 AS="curtains": PROCsopr : PROCdrapes 

258 AS="window-frames" : PROCsopr : PROCE 
rames (7) 

260 AS="window-sills":PROCsopr : PROCsi 
lls (258,35@) : PROCsills (25@,20@) :PROCsil 
1s (450,358) : PROCsills (650, 35@) : PROCsil1l 
s (656,208) 

278 AS="garage": PROCsopr : PROCgaragero 
of (1,0) : PROCgardoor (7) 

288 AS="door": PROCsopr : PROCdoor (7) 

298 AS="doorknobs": PROCsopr : PROCknobs 

360 AS="letterbox" : PROCsopr : PROCletter 

316 AS="doorknocker"™: PROCsopr : PROCkno 
ck 

328 AS="path": PROCsopr : PROCpaths (5) 

330 AS="drive": PROCsopr : PROCdr ive (5) 

346 AS="flowers" : PROCsopr 

35@ FOR£=1TO8:READa ,b: PROCflower (a,b) 
3: NEXT 

368 DATA250,125,325,100,375,110,625, 1 
00,675,116, 758,126,1658,125,1158,108 

378 AS="car"™: PROCsopr : PROCcar 

380 AS="fence": PROCsopr : PROCfence 

396 AS="birds": PROCsopr : PROCbirds 

400 AS="cat": PROCsopr : PROCcat 

416 now=TIME: REPEATUNTILT IME=now+1 066 


:CLS 

420 PROCnight :CLS:*FX15,1 

430 TIME=0:REPEAT: PROClightsout: UNTIL 
FALSE 


446 END 


450 : 

1086 DEFPROCdraw(a,b,c,d,e) :GCOLG,e:MO 
VEa ,b:MOVEc,b: PLOT85,a,d: PLOT85,c,d: END 
PROC 

1018 : 

1020 DEFPROCdrawN (a,b,c,d,e) :GCOLG,e:M 
OVEa ,d: DRAWc ,d: DRAWc ,b: ENDPROC 

1036 : 

1846 DEFPROCdrawNu (a,b,c,d,e) :GCOLG,e: 
MOVEa ,d: DRAWa ,b: DRAWc ,b: ENDPROC 

1650 : 

1060 DEFPROCwait 

1076 *FX15,1 

1080 REPEATUNTILGET=32: ENDPROC 

1698 : 

110@ DEFPROCsound: inc=inc+4:SOUND1,1, ( 
97+1inc) ,5:SOUND2,1, (113+inc) ,5:SOUND3,1 
, (125+inc) ,5: ENDPROC 

1116 : 

28 DEFPROCpr int:1%=LEN (A$) /2: PRINTTA 
B(9-1%) AS: FORW=1TO50@: NEXT: ENDPROC 

1136 : 

114@ DEFPROClightsout 

1150 IFTIME>26@THENPROCdraw(253,200,35 
0,300,4) 

1168 IFTIME>4@QTHENPROCdraw (650, 260,75 
8,30G,4) 

78 IFTIME>6Q9THENPROCdraw (256, 350,35 
3,450,4) 

1188 IFTIME>808THENPROCdraw (450, 350,55 
3,450,4) 

1198 IFTIME>1 @@@THENPROCdraw(650,350,7 
50,456,4) 

1288 ENDPROC 

1218 : 

1228 DEF PROCsopr 

1238 PROCwait: PROCsound: PROCprint 

1248 ENDPROC 

1256 : 

1268 DEFPROCbr icks:GCOL@, 3: FORB=1 50T04 
75STEP25 :MOVE200,B:DRAW800,B: NEXT :FORB= 
256TO75@STEP5@ :MOVEB, 150: DRAWB, 500: NEXT 
: ENDPROC 
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1276 : 

1286 DEFPROCroof : PROCdraw (250,500,750, 
659,@) : PROCgables: ENDPROC 

1296 : 

1388 DEFPROCgables:MOVE75@ , 500 :MOVE75@ 
650: PLOT85, 850, 500:MOVE25@ , 650 :MOVE25G 
7586: PLOT85, 158,500: ENDPROC 

1318 : 

1326 DEFPROCstacks (c) : PROCdraw(250, 6086 
7356,708,c) : PROCdraw (650,680,750, 708,c) 
: ENDPROC 

1336 : 

1346 DEFPROCpots: PROCdraw(276,708,296, 
750,0) : PROCdraw(319,780,330,758,8) : PROC 
draw(670,788,698,750,G) : PROCdraw(716,76 
8,736,758,@) : ENDPROC 

1358 : 

1366 DEFPROCwindows (c) : PROCdraw(250, 20 
6,350,300,c) : PROCdraw(250,350,358,450,c 
) : PROCdraw (456,358,550, 450,c) : PROCdraw( 
658,200, 750,300,c) : PROCdraw (650,359,750 
,450,c) : ENDPROC 

1376 : 

1388 DEFPROCdrapes: PROCcurtains (256,45 
@) :PROCcurtains (45@,45@) : PROCcurtains (6 
50,450) : PROCcurtains (250, 300) : PROCcurta 
ins (650,3@@) : ENDPROC 

1398 : 

1409 DEFPROCcurtains (x,y) : PROCdraw(x,y 
-106,x+25,y,4) : PROCdraw(x+78,y-198,x+10 
0,y,4) : ENDPROC 

1410: 

1428 DEFPROCframes (c) :GCOLG,c:MOVE250, 
450: DRAW35@ , 450: DRAW35G, 350: DRAW250, 358 
: DRAW25G , 458 :MOVE30@, 450 : DRAW300,, 350:MO 
VE256 , 400: DRAW359,406 

1430 MOVE45@, 450: DRAW55@ ,, 450: DRAW550, 3 
50: DRAW45@, 350: DRAW450,450:MOVE45G, 400: 
DRAW550 , 400:MOVE500 , 350: DRAW50G , 450 

1449 MOVE65@, 450: DRAW750,450: DRAW75G@, 3 
50: DRAW65@ , 350 : DRAW650 , 450 :MOVE7@@, 350: 
DRAW790 , 450 :MOVE65@ , 400: DRAW750, 400 

1458 MOVE65G , 300: DRAW75@ , 300: DRAW75G, 2 
00: DRAW65G, 200: DRAW65G ,, 300:MOVE65G, 250: 
DRAW75@ , 250 :MOVE7@@ , 200: DRAW70@ , 300 

1468 MOVE25@, 300: DRAW350 , 300: DRAW350,2 
08: DRAW250 , 200: DRAW250 , 308:MOVE25@, 250: 
DRAW35@ , 258 :MOVE380, 280: DRAW308, 300: END 
PROC 

1476 : 

1480 DEFPROCsills(x,y) : PROCdraw(x,y-18 
7X+108,y,7) sENDPROC 

1496 : 

1586 DEFPROCgarageroof (c,r) : PROCdraw(8 
08,348,1000,350,c) : PROCdraw (996,154,100 
8, 358,c) :MOVE8Q@ , 486 :MOVE8@G , 350: GCOLG, 
r:PLOT85,1000,350:ENDPROC 

1518 : 

1528 DEFPROCgardoor (c) : PROCdraw(890,15 
@,999,340,c) : ENDPROC 
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1530 : 

154@ DEFPROCdoor (c) : PROCdraw(458,158,5 
598,308,c) :ENDPROC 

1556 : 

1566 DEFPROCknobs:GCOLG, @: PLOT69,47G,2 
20: PLOT69 , 968,170: ENDPROC 

1576 : 

1580 DEFPROCletter : PROCdraw(485,195,51 
5,208,8) : ENDPROC 

1598 : 

1608 DEFPROCknock : PROCdraw (497,258,563 
1275,@) sENDPROC 

1618 : 

1626 DEFPROCpaths (c) : PROCdraw(450,58,5 
50,15@,c) : PROCdraw(550,125,808,1508,c) :M 
OVE45@, 150:MOVE45@, 50: PLOT85, 400, 50:MOV 
E550, 150:MOVE55@, 50: PLOT85, 600,50: ENDPR 
oc 

1638 : 

1646 DEFPROCdrive(c) : PROCdraw(890,50,1 
600,158,c) :MOVE8@G, 150:MOVE800,5@: PLOTS 
5,756, 50:MOVE1 G00, 150:MOVE1000, 50: PLOTS 
5,1050,50: ENDPROC 

1658 : 

1666 DEFPROCf lower (x,y) :MOVEx,y:GCOLG, 
2: DRAWx ,y+70:VDU23,245,6,0,0,0,16,9,0,0 
2 VDU23, 246, 16,84,56,238,56,84,16,8:VDUS 
: GCOLG , 8: MOVEx-26 , y+9@: VDU245 : VDU8: GCOL 
@,3:VDU246:GCOLG, 0:MOVES@G , 600: VDU4: END 
PROC 

1678 : 

1688 DEFPROCcar : PROCdraw(825,100,850,1 
56,0) : PROCdraw(950,108,975,158,@) : PROCd 
raw(800,158,1000,160,7) : PROCdraw(810,16 
6,998,240, 4) : PROCdraw(820,240,980,300,4 
) : PROCdraw (836,256,970, 290,0) 

1698 PROCdraw(816,160,824,20G,1) :PROCd 
raw(98G,160,984,200,1) : ENDPROC 

1788 : 

1716 DEFPROCfence:GCOLG, 7: FORX=88TO1 20 
OSTEP44: PROCdraw(X,58,X+15,200,7) :NEXT: 
PROCdraw(160,160,1200,170,7) : PROCdraw(1 
60,96,1206,108,7) s:ENDPROC 

1726 : 

1738 DEFPROCbirds:VDU4:VDU5:VDU23, 246, 
8,6,40,84,146,9,9,8:VDU23,241,0,6,198,4 
8,16,0,8,0:GCOL@, G@:MOVE8@G, 759: VDU240:M 
OVE98G , 658: VDU24G :MOVE1 086, 600: VDU241:M 
OVE1 108, 708: VDU240:MOVE690 , 660: VDU4: END 
PROC 

1746 : 

1750 DEFPROCcat : VDU4:VDU5: VDU23, 242,G, 
7,95,127,191,231,204,0:VDU23,243,08,192, 
224,248,244, 242,228, 136:GCOLG,7:PROCpos 
:MOVEc , t: VDU242: VDU243:GCOLG, 0:MOVE5@G, 
680 : ENDPROC 

1760 : 

1778 DEFPROCpos :p=RND (4) :c=500:t=600: 1 
Fp=1THENc=816:t=375 

1786 IFp=2THENc=25@:t=725 

3 ad 


Volume-1 Issue 9 


18 


1798 IFp=3THENC=50@: t=650 

1888 ENDPROC 

1818 : 

1826 DEFPROCnight :GCOLG, 132:CLG 

1838 PROCroof: PROCstacks (4) : PROCpots:P 
ROCdrawN (458, 150,550, 308,6) : PROCwindows 
(3) : PROCdrapes : PROCgarageroof (8,8) : PROC 
frames (4) 

1848 GCOLG,6:MOVE25G@, 760: DRAW350 , 740:D 
RAW35@, 606 :MOVE35@, 650: DRAW650, 650 :MOVE 
658 , 780: DRAW750 , 706 : DRAW75@ , 660 :MOVE75@ 
7650: DRAW85@ , 500 :MOVE8@@ , 506: DRAW800,15 
@:MOVE8@G@ , 400: DRAW1005, 350: DRAW1 005, 150 

1858 PROCdrawNu (240,198,358,319,6) :PRO 
CdrawNu (240, 346, 350, 460,6) : PROCdrawNu (6 
486,190,750,310,6) : PROCdrawNu (440, 346,55 
8,460,6) : PROCdrawNu (640, 340,750, 460,6) 

1866 FORX=88TO] 200STEP44: PROCdrawN (X,5 
8,X+15,200,6) :NEXT: PROCdrawN (100,160,12 
08,170,6) : PROCdrawN (100,98,1200,100,6) 


14<— 
878 DATA "8D1GGBA9@GAGGF99" 
886 DATA "6600881 GFA18AD16" 
896 DATA "@B69408D193@BAD11" 
900 DATA "@B69018D110BC979" 
916 DATA "DGE1A279A95F8D42" 
920 DATA "GB8D450BA9808D44" 
938 DATA "@BA9908D41 GBAGGO" 
949 DATA "B9GGGG990G0GC8DB" 


SQUARE WAVES 


Dear Sir, 
After reading the article in the 
March issue of ELBUG about using BBC 


micro programs on the Electron, I 
experimented on my machine to see if 
the ADVAL statement had any effect and 
discovered some interesting results. I 
wrote this program to demonstrate these 
results graphically: 

18 MODE @ 

28 FOR X=6 TO 1279 

3@ DRAW X,ADVAL(x) /106 


40 NEXT X 
This produced a very rough square wave 
pattern [very rough - Ed.]. Although 


I cannot explain these results, they 
seem to disprove the statement on page 
28 (table 1) of the article. 

Tim Stephenson 


1878 VDUS:VDU23,248,8,112,24,12,12,12, 
24,112:VDU23,249,0,5,9,0,16,0,0,0:GCOLd 
, 7:MOVE108@, 750: VDU248:MOVE150, 760: VDU2 
49:MOVE4@@, 750: VDU249 :MOVE9@@, 600: VDU24 
9:MOVE1 G0, 650: VDU249 :MOVE1 150, 646: VDU2 
49 

1886 VDU4:COLOURG: ENDPROC 

1890 : 

1966 DEFPROC1lo:SPLS="":FORCh=1TOLEN (SP 
$) : IFMIDS (SPS,ch,1) =""—"SPLS=SPLS+"—"":GO 
TO1926 

191@ SPLS=SPLS$+CHRS (ASC (MIDS (SPS$,ch,1) 
)+32) 

1928 NEXT: ENDPROC 

1938 : 

1949 ON ERROR OFF 

1956 *FX4 

1968 *FX12 

1978 MODE 6:IF ERR=17 END 

198@ REPORT: PRINT" at line ";ERL 

1998 END & 


958 DATA "F7EE42@BEE45@BEC" 

966 DATA "450BD0EA58604446" 

970 : 

980 ON ERROR OFF 

998 MODE 6 

1000 IF ERR<>17 REPORT:PRINT" at line 
“sERL 


1610 END é 


POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG 


micro ADVAL 


is only valid with values 
from @ to 4, and using ADVAL in the way 


described produces similar effects on 


that machine. 


SCREEN FREEZER 
Dear Sir, 

Your "Screen Freezer" program (ELBUG 
issue 7) is excellent and I thought you 
would like to know that "Felix in the 
Factory" from Program Power freezes 
very well indeed. 

I enjoy your magazine 
(only wish it were longer). 


tremendously 


Tom Ede 
Reply: 

If other 
might publish a 
programs that you 
'frozen' in this way. 


readers write to us we 
table of all the 

tell us can be 
Regretfully 


Reply: perhaps, we have no plans at present to 

We are not sure either of the increase the number of pages in the 
reasons for these results. However, it magazine. 
should be noted that even on a BBC coe 
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MONITORS FOR THE ELECTRON 


Reviewed by Steve Fox 
and Hugh Brown-Smith 


In a previous article Steve Fox discussed some of the points to 
think about when choosing a TV or monitor to use with your Electron. 
This month Steve turns his attention to two of the cheaper colour 
monitors you might be tempted to consider buying, and gives you his 
expert opinion. Hugh Brown-Smith describes the rather more expensive 


Microvitec Cub. 


Grundig 'Super Colour' C2462 GB 
TV/Monitor supplied by Newark Video 
Centre, 108 London Road, Balderton, 
Newark Notts. NG24 3AQ. Price (to 
ELBUG members) £268 inc. VAT and 
carriage. 


Reviewer : Steve Fox. 


GRUNDIG "SUPER COLOUR" TV/MONITOR 

This 14" Portable TV Receiver is of 
German origin and is distributed in the 
U.K. by Grundig International of Rugby. 
It is very modern in design and incorp- 
orates infra-red remote control of 
channel selection, volume, brightness, 
colour, loud-speaker muting and reset. 
The receiver is able to store, while 
switched off, tuning data for up to 30 
channels, the same tuning buttons 
servicing all channels. A miniature 
jack is supplied to allow TV sound to 
be fed to an_ earpiece (or tape 
recorder, though the quality of 
recording is likely to be poor due to 
overloading) and a_ twin-rod V-aerial 
is fitted to the case (it may be 
unplugged if an external aerial is 
used). The case of the receiver “is 
black plastic incorporating a _ recess 
at the top for lifting: its weight is 
comparatively modest (about 25lb). A 
flap at the front gives access to the 
normal presets, including contrast. 
When the flap is closed it depresses a 
button which brings into action an 
automatic frequency correction device 
which prevents the receiver drifting 
off tune. 


A straightforward modification of 
the receiver is carried out (with the 
approval of Grundig) by certain dealers 
to enable direct RGB connection, via 
DIN plugs to the BBC micro or Electron. 
The receiver being reviewed was modi- 
fied by Newark Video Centre, 108 London 
Road, Balderton, Newark, Notts, NG24 
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3AQ. The changeover from TV to RGB and 
back is controlled by a switch on the 
back. 


First impressions of the monitor, 
viewing a TV picture, were very favour- 
able. Definition was crisp, geometry 
good and the colours natural. I turned 
the colour control to the "off" end of 
the range and noted that the resulting 
black and white picture was neutral in 
tint. There wasn't any suggestion of 
coloured edges and the black level 
remained constant whether the scene was 
light or dark. I then tried the RGB 
mode. Computer-generated screens tend 
to be over-colourful and this effect 
can be quite objectionable on certain 
picture-tubes whose screen phosphors 
are of strident hue. The tube used by 
Grundig is excellent in this respect; 
the primary colours are strong but 
pure. 


The test programs described in the 
previous article confirmed these 
impressions. The white grille and dots 
pattern showed no coloured fringes and 
no perceptible geometrical distortions. 
The screen margins on this receiver are 
practically rectangular, only the 
extreme corners being rounded. The 
scanning was also correctly adjusted 
(whether by the factory or by Newark 
Video Centre) so that the entire 
picture was visible. With TV receivers, 
this job all too often has to be 
carried out by the purchaser, as the 
margins are often rounded and the 
factory usually sets the picture so 
that parts of it are lost at the top, 
bottom and edges. 


The ‘colour bars' test program 
showed a generally smooth transmission 
from one colour to another without any 
serious overshoot or undershoot, 
although the Grundig is not as good as 
the Microvitec Cub in this respect. 
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The 'small print' test showed that 
the Grundig is as tolerable for word 
processing as any other’ standard 
resolution colour monitor. Its 
excellent convergence (absence of 
coloured edges all over the screen 
area) helps a lot and provided the 
brightness and contrast are carefully 
adjusted I would think it usable for 
periods of up to, say, an hour without 
too much eye-strain. 


The EHT Regulation test is a severe 
one, and all monitors except very 
expensive professional ones must be 
expected to show geometric changes in 
the picture as the CRT beam current 
rises or falls. When the raster is 
white the current drain is at a maximum 
and the EHT is reduced. The Grundig 
shows a small increase in the raster 
size under these conditions, with a 
bowing inwards of the edges (pincushion 
distortion), but the effect is not 
excessive nor abnormal. 


No interaction of the RF receiving 
circuitry was perceptible when in the 
RGB mode, but if TV is selected without 
switching off or disconnecting the 
micro, synchronizing problems appear. 


A minor but annoying quirk of the 
Grundig circuit is that if the monitor 
is switched on at the mains plug it 
goes into "standby" condition and does 
not display a picture (even in RGB) 
until a channel is selected with the 
remote controller. This does not happen 
if the receiver is switched in with its 
own on/off switch. 


The TV receiver as such is sens- 
itive and gives a good clean picture in 
good reception areas, although results 
using the 'V' aerial provided will of 
course be unpredictable. My only crit- 
icism is that the AFC circuit mentioned 
in my first paragraph introduces a 
small but perceptible amount of noise 
(or "grain") into the TV picture and to 
avoid this the control flap has to be 
left open. 


Newark Video Centre sell this 
monitor (carriage paid) to ELBUG 
members at £268 - a discount of £15 on 
the normal price of £275. Other firms 
appear to charge more. 


It is an excellent monitor in its 
class and I can recommend it as very 
good value. 


Electrohome BCM13@2-1 RGB Monitor 
supplied by Opus Supplies Ltd., 

158, Camberwell Road, London SE5 GEE. 
Price £221.89 inc. VAT and carriage. 


Reviewer : Steve Fox. 


ELECTROHOME ECM 1382 RGB MONITOR 
These monitors are manufactured for 


Electrohome Electronics, a Canadian 
firm, by the Japanese JVC company. They 
are imported into the UK by Opus 
Supplies Limited who sell direct to 
the public. They are available in two 
forms: "medium" and "high" resolution. 
The main difference between the two is 
that the medium-resolution model uses a 
standard picture tube of the type used 
in domestic TVs whereas the high 
resolution version uses a_ screen of 
finer structure - although still not as 
fine as that used in more expensive 
monitors. 


The monitor is fitted with two 
inputs, one a  subminiature "D" 
connector for the Apple II, the other 
a 7-pin DIN connector. Connections on 
the latter require positive sync 
pulses. The BBC/Electron normally 
feeds negative syncs although a link 
can be changed over to reverse the 
polarity. However, Opus Supplies save 
you the trouble by supplying a hybrid 
lead which feeds negative syncs into 
the Apple input and the other signals 
into the DIN connector. This is an 
effective if slightly untidy solution 
to the problem. 


SSS SE I 
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The monitor case is two-tone 
plastic, pleasant and robust, and the 
only accessible controls are brightness 
and on/off. First impressions when I 
ran an arcade game on the "medium" 
(i.e. standard) monitor were of a good 
bright picture very suitable to the 
subject. 


However, when I ran the monitor 
tests, it became evident that all was 
not well. The white grille and dots 
showed coloured fringes at the edges 
of the picture and the vertical 
centering was incorrect. Opus Supplies 
had kindly furnished me with service 
data, including a circuit diagram, so 
I removed the back of the set and 
found that the centering could be 
corrected (near enough) by changing a 
3-position link. But I  was_ less 
successful in my efforts to reconverge 
the monitor and could not entirely 
eliminate the coloured fringes. The 
next problem was that the whites were 
pink. I corrected this to my 
satisfaction by adjusting the red and 
green channel-gain presets. 


When I ran the ‘colour bar' test 
program signal I noticed a black band 
to the left of the green bar amd a 
bright band to the right of it and 
other bars showed a similar but less 
marked effect. I looked at the circuit 
diagram but could find no trimming 
adjustments to correct this. 


The "fine print" test was of course 
marred by the colour fringes, although 
not so severely as to make the letter 
illegible. The monitor showed no 
excessive geometric changes when I ran 
the EHT regulation test. 


Viewing pictures on the screen, 
definition was subjectively good, being 
at times emphasized by the bright green 
lines. However, fine green lettering 
was quite difficult to read. 


Further enquiries have convinced me 
that the monitor reviewed was not 
exceptional and that its shortcomings 
are due to a pretty basic design rather 
than to sub-standard components. That 
said, as I have already indicated, the 
monitor's performance was capable of 
improvement by a qualified engineer, as 
some of the presets were not properly 
adjusted. 


At the inclusive price of £221.89, 
this monitor represents fair value for 
money, though the well known = and 
impressive Microvitec costs only a 
little more. 


I have not checked the "high 
resolution" version, but as its design 
very closely resembles the other, I 
have no doubt that it suffers from the 
same problems. 


Microvitec Cub 1431 MS Colour Monitor 
Microvitec PLC., Futures Way, 

Bolling Road, Bradford, 

West Yorkshire, BD4 7TU. 

Price £238.85 inc. VAT and carriage. 


Reviewer : Hugh Brown-Smith 


MICROVITEC CUB 


The Microvitec Cub_ has_ become 
something of a standard for colour 
monitors used with the BBC. This is 
largely due to the volume of units 
supplied to educational establishments 
under the D.O.I. scheme. The fact that 
so many have been sold has perhaps 
biased many home users into choosing 
the Cub. So is this the best available, 
or should one consider other 
alternatives? 


The monitor itself looks very smart 
and robust, the case being made 
entirely of sheet metal finished in a 
two tone brown. The lack of a carrying 
handle could make it awkward to move 
the monitor and computer together, but 
this does not present a great problem. 
Strength and robustness seem to have 
been a theme of the design, giving the 
appearance of being able to withstand 
easily all but the most determined 
knock. The 14 inch screen occupies 
almost the whole of the front panel 
with a small indicator to the bottom 
right showing when the monitor is on. 


The only controls available outside 
the case are an on/off switch and 
contrast, both situated on the rear 
panel, but within easy reach if you 
want to make adjustments. The lack of a 
brightness control does not present any 
problems as the contrast will allow 
more than adequate adjustment over the 
appearance of the screen. The factory 
set condition of the internal controls 
seems to be accurate and the picture 
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position is good, although on the 
review model the picture was very 
slightly off centre. Also on the rear 
panel is the RGB input via a six pin 
Din plug. A lead is supplied with the 
monitor for use with BBC or Electron 
machines. 


Linearity of these monitors is 
excellent as is the colour definition. 
88 column definition is far better than 
a TV but lacking” slightly in 
readability. This is due to slight 
fringing but without a "High 
Resolution' tube such a monitor cannot 
be expected to produce an image 
Suitable for long use without causing 
potential eyestrain. 


The main problem with the Microvitec 
is an annoying flicker which can be 
quite off-putting if the screen is 
viewed at close distances for prolonged 
periods. This seems inherent on all 
Cubs although some are better than 
others. If you decide to buy one, try 
to go to a dealer am  see_ the 
particular one you are going to buy 
working first. The flicker is most 
apparent at the top of the screen 
although it is also present in the 
middle. 


The test programs published in ELBUG 
issue 7 were used to put the monitor 
through its paces, and the results are 
described below. 


The white bar and dot test revealed 
that the top corners of the screen were 
adjusted badly and set just out of 
view. This is not the case on all 
models so again it is worth seeing one 
first. 


The colours shown in the colour bar 
test were all of good definition and 
clarity. There was also no _ problem 
where two colours met. 


The 86 column text test suffered 
from slight fringing, as described 
above, but no more than would-be 
expected and nothing to worry about. 


No problems were experienced with 
the EHT Regulation test. In fact the 
performance here was better than 
expected with only a very marginal 
distortion of geometry visible just in 
the centre of the outer edges. 


All in all the Microvitec represents 
very good value for money combined with 
a good reliable service. It seems quite 
rare for problems to occur, and because 
of the quantity in service it is not 
difficult to find someone to undertake 
repairs. 


[We have included on this month's 
magazine cassette a further test 
program called TVTEST, which displays a 
colour test card on the screen. This 
combines several of the features of the 
previous test programs, but it is a 
program which would be tedious to type 
in accurately from the keyboard. For 
this reason we are not printing the 
program in the magazine. - Ed.] 


MONOCHROME MONITORS 

In this review, all the monitors 
have been of the colour’ type. 
Monochrome monitors are also available 
which have the advantage of being of 
very high resolution and relatively 
cheap. Such monitors (for example those 
by Novex) are available in a number of 
different screen types from the black 
and white through green and black to 
amber and black. The purpose of these 
alternative colours is to relieve eye 
strain and the final choice would 
obviously be based on_ personal 
preference. 


If you are particularly interested 
in a monitor capable of displaying 80 
columns of text on the screen (for word 
processing for example) then a 
monochrome monitor may be a better 
choice and the different colours still 
appear as different shades of grey. You 
could still use your domestic TV if you 
wanted a colour picture for games. 
Prices range depending on make and 
resolution, but as a guide you could 
expect to pay £99 - £116 for a high 
resolution model. 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


MODE SELECTION ON BREAK 
*FX255,n selects the screen mode when you press the Break key, where n is the 
mode that you want with 8 added to it. 
SE IE 
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ELECTRON GRAPHICS (Part 9) 


by Mike Williams 


In last month's article in this series we looked at some of the ways 
in graphics displays on the 


of manipulating the colours used 


Electron 


using the GCOL and VDU19 instructions. This month we shall 


concentrate solely on further uses of GCOL, and show how you can use 
this to produce a wide variety of shades in the different colours. 


First of all let's just look at the 
versions of GCOL as documented in the 
User Guide. The format of the GCOL 
instruction is: 

GOL p,c 
where 'p' is a number indicating the 
plotting mode to be used, and '‘'c' is a 
number which specifies a colour (with 
128 added for a background colour). 
Last month we concentrated on the case 
where p=3, known’ as Exclusive-OR 
plotting. This is particularly valuable 
when we want to produce a moving 
graphics display. We will now examine 
briefly each of the different plotting 
modes in turn. In the examples that 
follow the colours referred to will be 
the default colours (black, red, 
yellow, white) for a four colour mode 
(modes 1 and 5). You should be able to 
work out yourself what the colours 
would be in the other graphics modes 
(G, 2, 4). 


p=@: In this mode we simply plot the 
colour specified by GCOL regardless 
of any colours already on the 
screen. Thus GCOL@,1 will plot in 
red and GCOLG,2 will always plot in 
yellow. 


=1: In this plotting mode it is the 

logical OR of the new colour and 
the previous screen colour which 
will be displayed. Type in the 
following program: 

1@ MODE 5: GCOL @,1 

20 PLOT 5,300,380 

38 GCOL 1,2: DUMMY=INKEY (109) 

40 PLOT 5,06,0 

50 END 
First of all you will see a red 
line (i.e. colour 1 as specified by 
the GCOL in line 10), and then one 
second later you will get a white 
line, though one might at first 
sight expect a yellow one (colour 
2). Initially each point on the 


=2: 


: This is 


We then set the logical colour to 2 
(yellow), but with OR plotting, 
'] OR 2' has a logical value of 3 
(you can verify this by typing 
PRINT 1 OR 2 <return> 

in Basic). This is why we get a 
white line (logical colour 3) 
instead of a yellow one. 


This plotting mode uses the logical 
AND of the two colours. If we 
change line 30 above to read: 
36 GCOL2,2: DUMMY=INKEY (100) 

we can see the effect of this. 
Colour 1 (red) AND colour 2 
(yellow) gives colour @ (black) 
because '1 AND 2' has the logic 
value zero. You can again verify 
this as before (PRINT 1 AND 2). 
Thus after one second is up the 
line disappears (changed to black, 
the same as the background) even 
though our specified foreground 
colour is yellow. 


Exclusive-OR plotting 
(abbreviated EOR) as described last 
month. You should be able to work 
out what happens if you change line 
3@ to include GCOL3,2 (see end of 
article for the answer if you are 
not sure). 


line was at logical colour 1 (red). 
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p=4: This ignores the current colour 
setting completely and merely 
inverts the colour already 


present. Thus if you change line 36 
to use plotting mode 4 the red line 
will change to yellow because the 
inverse (logical NOT) of colour 1 
(red) is colour 2 (yellow). In 
binary, inverting a number changes 
1 to @ and @ to 1 throughout. 


GCOLMANIA 

The five plotting modes described 
above, with values from @ to 4, are the 
only ones described in the User Guide. 
Technically this number is stored as a 
single byte of memory and is. thus 
potentially capable of taking any value 
from @ to 255. If you try this out you 
will find that it is possible to produce 
all sorts of exciting striped colours 
some of which when viewed from a 
distance appear as shades of the 
standard 16 colours (includes flashing 
colours of course). The following 
program allows you to explore this new 
world quite easily, and to find some new 
effects that you can incorporate into 
your own programs. 


When you run the program you will be 
asked which graphics mode you want to 
use (0, 1, 2, 4, 5). The screen will 
then be divided up into rectangular 
areas depending on the number of colours 
available in each mode. Thus the two 
colour modes will display two 
rectangles, the four colour modes will 
show four, and mode 2 will display 16 
separate areas. Each rectangle 
represents one of the colours for that 
mode numbered from left to right and top 
to bottom. Thus in a four colour mode 
the top two squares are colours @ and 1, 
and the bottom two squares are colours 2 
and 3. 


As listed the program sets the 
plotting mode to @ and displays all the 
colours possible in the _ selected 
graphics mode on the screen. Pressing 
the space bar (or any other key) will 
increase the plotting mode by 8 and 
re-display the colours in this new mode. 
Continuing to press the space bar will 
cycle through many of the different 
effects possible until the value of the 
plotting mode exceeds 255. 


Each screen display will also show 
the current plotting mode for further 
reference. Stepping through the plotting 
modes in steps of 8 should mean that all 
the effects are functionally equivalent 
to plotting mode 9, thus avoiding any 
further complications through the use of 
the logical operations already 
described. If you want to explore 
intermediate values then just change the 
step size in the program at line 1150. 


Next month's article will be the last 
article in this series, and will show 
you how to use GCOL and the VDUI9 
instructions again, this time to produce 
some fast moving animation. 


{Exclusive-OR plotting gives colour 3 
(white) in the earlier example.) 


PROGRAM E 

These notes are included for those 
who are interested in the details of the 
program. The main program, from line 16 
to 280, simply displays some information 
on the screen, and determines the 
graphics mode to be used before calling 
the procedure PROCdisplay2 at line 1130 
to produce the entire display. The main 
program also calls the procedure 
PROCinit, which sets up and initialises 
four arrays to specify the number of 
colours, and the number of display rows 
and columns for each mode. By storing 
this information it is very easy for the 
program to use the same routines 
subsequently to create the display, 
regardless of which graphics mode is 
chosen. 


The procedure PROCdisplay2 is simply 
a loop which cycles through each GCOL 


plotting mode and calls a _ further 
procedure PROCdisplay to create the 
display itself. 


The procedure PROCdisplay in turn 
creates each rectangular area as a 
window which is then filled with a 
background colour using CLG (see part 5 
in this series for a more detailed 
description of this technique). 


16 REM Program GCOLMANIA 
208 REM Version E1.1 

30 REM Author Mike Williams 
40 REM ELBUG Aug/Sept 1984 


5@ REM Program subject to copyright ——» 
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SE SES SE 


68 : 107G DATA 1,4,2,2 
108 MODE 1 1080 DATA 2,16,4,4 
118 ON ERROR MODE 6:PROCerror:END 1698 DATA 4,2,2,1 
126 PROCinit 1186 DATA 5,4,2,2 
138 VDU19,2,6,9,0,0 111@ ENDPROC 
148 REPEAT:CLS 1126 : 
158 COLOUR]: PRINTTAB (16,2) "GCOLMANIA" 1138 DEF PROCdisplay2(x%,y$) 
168 COLOUR2: PRINTTAB (19,6) "by" 1148 LOCAL gcol$,z% 
17@ PRINTTAB (14,9) "Mike Williams" 1158 FOR gcol%=@ TO 255 STEP 8 
186 COLOUR3 1168 PROCdisplay (gcol%,x%,y%) 
198 INPUTTAB(1,16) "Which mode to disp 1178 z%=GET 
lay" ;mode% 1186 NEXT gcol$% 
2606 UNTIL mode%<6 AND INSTR("@1245",S 1198 ENDPROC 
TRS (mode$) ) 1200 : 
218 MODE mode$:M$=-1 1216 DEF PROCdisplay(g%,x%,y%) 
228 VDU23,1,0;0;9;0; 1226 LOCAL colour’, incx%,incy$,1%,J% 
236 REPEAT:M%=M%+1:UNTIL mode$% (M%) =mo 1238 incx$=1280/x%: incy$=1024/y% 
des . 1248 FOR J%=y%-1 TO @ STEP -1 
248 x%=columné (M8) : y3=row$ (M%) 1258 FOR I%=0 TO x%-1 
250 PROCdisplay2(x$,y%) 1268 VDU24,1%* incx;J%* incy%; (I$+1) *in 
268 MODE 6 cx$-1; (J%+1) *incy$-1; 
276 END 1278 colour%=y$* (y$-1-J%) +1% 
280 : 1288 GCOL g%,colour$+128:CLG 
1006 DEF PROCinit 1296 NEXT I%,J% 
1018 LOCAL M% 1308 PRINTTAB(6,2)"GCOL ";gcol%; 
1628 DIM mode% (4) ,colours$ (4) ,column? ( 1316 ENDPROC 
4) ,row% (4) 1320 : 
1636 FOR M%=@ TO 4 1338 DEF PROCerror 
18048 READ mode$ (M$) ,colours% (M$) ,colum 1348 ON ERROR OFF 
n% (M3) , rows (M3) 1350 IF ERR<>17 THEN REPORT: PRINT" at 
1050 NEXT M% line ";ERL 
1668 DATA G,2,2,1 1368 ENDPROC SS 


IHINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


TOP LINE OF TEXT - D. Robinson 
If you have difficulty reading the top line of text on your television then you 
can define a text window to stop the Electron using the top line. This command is 
slightly different for each mode to compensate for the different screen heights e.g. 
MODE 6:VDU 28,0,24,39,1 
MODE 5:VDU 28,0,31,19,1 @ 


SHADED LETTERING FOR TITLES - W.R.Powers 
To make your titling in programs more attractive try the following procedure 
which starts at line 100 (the rest is just to demonstrate it). 
1@ MODE 1:COLOUR 2 
20 PROCshade("Elbug for the Electron", 260,800) 


108 DEF PROCshade(A$,X,Y) 

116 VDUS 

128 VDU19,8,5,8,0;:VDU19, 1,0; 8; 
138 GCOL1,3:MOVEX,Y:PRINT AS 

148 GCOL1,1:MOVEX-8,Y-8:PRINT A$ 


158 ENDPROC 
This uses VDU5 to print text at the graphics cursor, printing the letters a 
second time offset by 8 graphics units. @ 
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More Games Reviewed 


Name : Cylon Attack 

: A & F Software 
Price : £7.96 
Reviewer : David Fell 
Rating £ RRRE 


This game invol- 
ves you leaving the 
sanctity of your 
mothership to ward 
off a variety of 
alien space ships, 


\ . 
CYLON ATTACK 


all of whom are SSM] 
intent upon destroy- by 

ing your space 

craft. The screen 

provides you with a 

view from the 

cockpit of your 


space ship, and you 
are provided with 
an indication of your fuel, shield and 
laser status. At the top of the screen 
is a similar display for your 
mothership, showing how many fuel 
refills there are left, and how many 
more hits can be taken on_ the 
mothership (hits are only taken on the 
mothership when you dock with it, and 
refuel). 


The game features some attractively 
designed shapes, and presents a well 
'graded' game. The first round is quite 
easy, and a little patience will allow 
you to finish this round quite easily. 
The later rounds, however, are 
amazingly difficult, and require some 
very subtle game play to master. The 
high score table provided allows for 56 
scores, and can be saved and loaded 
from tape when necessary. There is an 
option to select from either two key 
layouts, or joysticks, and details of a 
high score competition are given with 
the packaging. 


Title: SNOOKER 
Supplier: Visions 
Price: £7.95 
Reviewer: Mike Williams 
Rating: * 


I would not claim much expertise in 
the practice of snooker, but even to my 
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untrained eye, the quality of play 
available in this version of the game 
is poor. The balls move in a most 
unrealistic way, often appearing to 
stop dead as though a bunker has 
suddenly materialised on the green of 
the snooker table, 
while some of the 
angles and rebounds 
would drive a 
professional deme- 
nted. 


SNOOKER 


Colourful this 
game may be, but 
realistic it defin- 
itely is not. This 
is a pity because 
the game of snooker ree 
ought to lend itself to a 


really 
computer simulation. Despite the 
apparent popularity of this game, 


judging by the charts of best sellers 
(presumably this reflects the 
popularity of snooker itself), this is 
definitely not a game I want to play 
again, and I suspect many others would 
feel the same about this offering from 
Visions. 


Title : Stranded 
Supplier : Superior Software 


Price 3 £7.95 
Reviewer : Peter Lowes 
Rating 3% 
‘Stranded' is a very small and 


simple adventure by any standard. It 
took about an hour and a half to solve 
and it was only necessary to run 
through the plot twice. 


The instructions consist of a brief 
description of the mission, which is to 
find your way home from an alien world 
on which you have been stranded. After 
that you are on your own. 


The game runs in mode 1, giving a 
neat and colourful display. The top 
half of the screen is devoted to a 
picture of the current location, and 
the bottom half to a text window giving 
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the usual information in the briefest 
possible way. Most of the locations 
have a picture to go with them. 
However, there are far too many areas 
of the game, such as the maze of long 
twisty corridors, which are all alike 
and use the same picture, even if the 
exits are in different directions. The 
graphics are simple, clear and 
effective, but they give no clues, and 
remain unchanged when things happen. 
This means that they don't really 
contribute anything to the game which 
is a pity, considering how much memory 
is needed for them. 


The adventure itself is pitifully 
small, containing only seven objects. 
The few so called problems are either 
very old or very obvious. Also the 
locations connect together in a very 
unrealistic manner. For example, exits 
from several locations take you to the 
place you you have just left. This 
makes the game seem bigger than it 
really is. 


It could be argued that this game is 
aimed at young children or novice 
adventurers, but the lack of proper 
instructions and the very small range 
of commands to which the computer will 
respond would only frustrate a 
beginner. For example, you can PUSH a 
button but not PRESS one. 


Too much has been sacrificed for the 
sake of the pretty pictures and not 
even every location has one. There are 
not yet many adventure games available 
for the Electron, as many of those 
written for the BBC micro used mode 7. 
However one comparable game is Twin 
Kingdom Valley from Bug Byte. This is 
much bigger, more logical, and has a 
Picture to go with every location. 


"Stranded' does have a game save 
facility which I doubt anyone will 
need. It records a mere nine bytes, 
which just about sums up the game's 
complexity (and appeal). 


MORE NEW ADD-ONS FOR THE ELECTRON 


Title : Daredevil Dennis 
Supplier: Visions Software 
Price : £7.95 

Reviewer: Alan R. Webster 
Rating : **** 


WAGES eeeeee0 


Dennis is a rather active stuntman, 
whose aim in life is to make as _ much 
money from the movies as possible. Each 
stunt he performs earns him big money, 
but there are several risks that have 
to be taken. 


There are three different scenes. 
The first requires Dennis to ride a 
motorbike, leaping over houses and 
engaging in other dangerous pursuits. 
Among the stunts in the second scene, 
he has to jump a light-house with a 
wetbike, and in the third, his stunts 
are all performed on skis. 


The game has smooth, fast graphics 
and uses over thirty multicoloured 
‘sprite' characters. The cassette inlay 
card claims that the program has an 
interrupt driven sound routine, but 
this was missing on our copy. There are 
also six skill levels to choose from, 
and each level has six intermediate 
levels, making thirty-six in all. 


Overall, this is a very pleasant 
game with a lot of originality and 
provides quite a challenge at the 
harder stages. S 


First Byte Computers, who have already produced a joystick interface for the 


Electron (reviewed in ELBUG issue 7), 


have now brought out a similarly packaged 


printer interface price £34.95 inclusive, available from W.H.Smith and all good 
computer dealers, or direct from First Byte Computers, 18 Main Centre, Derby. 

A company called Slogger Ltd have launched a ROMBOX for the Electron at £35.00 
inclusive. This unit allows you to plug in up to eight ROMs or EPROMs. Contact 
Slogger Ltd, 215 Beacon Road, Chatham, Kent MES 7BU. 
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DEBUGGING PROGRAMS (Part 2) 


by Mike Williams 


We conclude the two part article that we started last month, by 
looking at some further errors that can be introduced when typing in 
programs at the keyboard. Many of these potential sources of error 
can occur both in programs that you have typed in from magazine 
listings and in programs that you develop and write yourself. 


This month we shall be looking at 
some of the errors that are likely to 
arise when a program uses arrays. The 
most obvious indication of these errors 
is the display of an error message with 
the word "array" or "subscript" in it. 
Many of the programs published in ELBUG 
make use of arrays, so we _ had better 
begin by looking at arrays and how they 
are used. 


DEFINING AND USING ARRAYS 

An array is a collection or list of 
items that it is useful to treat in a 
common way. Just as variables can be 
used to store numbers or strings of 
characters, so also can arrays (or 
lists). All the items in an array must 
be of the same type; you cannot mix 
numbers and characters together. Each 
array is given its own unique name, and 
only the use of a subscript 
distinguishes between the different 
items in the array. What is a subscript 
you may well ask? Well it's a number 
which is used to differentiate between 
the various items by pointing to, or 
indicating, the position of an item in 
the array. Each item in an array is 
often referred to as an ‘element' of 
that array. 


We will look at a simple example to 
explain matters further. Let's assume 
that we have an array A( ), and that it 
has eleven elements @ to 10 inclusive. 
That gives us the elements: 

A(®), A(1), A(2), A(3), A(4), A(5) 

A(6), A(7), A(8), A(9), A(1@) 

In each case the number enclosed in the 
brackets is the subscript. Notice too, 
that in our example the first element 
is in position @ (and not 1 as you 
might have expected). This is just 
typical of computing, where the first 
item of anything is often taken as @ 
(even some computing books have 
numbered their first chapter @). You 
can always use an array starting at 1 


if you wish, though this is a little 
wasteful as we shall see very shortly. 


Before you can use any array in a 
program, you have to tell the computer 
how many elements it is going to have, 
or rather, what the maximum subscript 
is going to be. In our _ previous 
example, the maximum subscript is 10, 
though the number of elements is 11. 
The DIM statement (short for dimension) 
is used for this purpose, and you 
simply enter a line as 

DIM A(1@) 
in order to set up an array with 
maximum subscript of 16, before you use 
it. What this does is to allow the 
computer to set aside a block of memory 
for this purpose. Even if you only use 
5 elements of the array in the program, 
the memory for all 11 will have been 
allocated. The computer always assumes 
that the first element will be the @ 
one, which is why it is a little more 
economical to use elements @ to 9, for 
example, rather than 1 to 10. In most 
cases however, the extra memory used 
by starting at element 1 will be 
negligible and have no adverse effect 
on the running of the program. 


Once our array has been 
dimensioned, with the elements going up 
to a maximum of 16, we cannot then use 
a subscript larger than 10 (or increase 
the size of the array later). If you do 
try to use element 11 say, the computer 
will tell you that you can't in the 
only way it knows how, with an error 
message: 

“Subscript at line....." 
with an appropriate line number of 
course. 


If the idea of arrays is new to you, 
then the following short >rogram should 
help to clarify what we have been 
doing. In this program, an array called 
"FRED' is defined, and the value of 
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each of its elements (in fact @) is 
then printed out. There is a deliberate 
mistake in the program though. When you 
type it in, see if you can spot this 
before continuing to read further. 


1@ DIM FRED(12) 

20 FOR I%=1 TO 13 

38 PRINT "Value of element ";1I3;" 
is...";FRED(I%) 

46 NEXT I% 


The array consists of 13 elements, 
but numbered from @ to 12. Thus when 
the FOR-NEXT loop tries to print out 
the value of the 13th element in line 
30 it produces the error message 
"Subscript at line 36". Notice too that 
the subscript in line 30 is written as 
a variable (I%). Arrays are very often 
found in FOR-NEXT loops where we want 
to carry out the same process on each 
element (here to print the value of 
each one). 


One small but important point to 
note about arrays is that the process 
of dimensioning an array automatically 
causes the value of each element to be 
set to zero (or to a null or empty 


character string if it is a string 
array). You do not have to assign 
values to arrays before you can use 
them, unlike the situation with 
ordinary variables (the "No such 


variable..." error message that we 
dealt with last month). 


CHECKING ARRAY ERRORS 

If the subscript of an element is 
given as a variable, or even as a more 
complex expression, it can be quite 
difficult to check what is going wrong. 
If the "Subscript...." error message 
does appear, try listing first the line 
which the computer says is in error, 
and then in immediate mode print the 
values of any subscripts in that line. 
In our simple example above, this would 
mean listing line 308 (LIST 30) and then 
printing the value of I (PRINT I$). 
This at least allows you to check if 
the subscript really is larger than it 
should be. Note too, that a subscript 
cannot be less than zero, so a negative 
subscript is always wrong. 


Incidentally, if a 
has a value which 
number (or integer), 


subscript ever 
is not a whole 
then the computer 
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just truncates the value. Thus 
FRED (6.99) would be treated as FRED(@). 


Of course this shouldn't occur 
(subscripts are whole numbers by 
definition), but it is worth knowing 


what will happen if it does. 


In practice, the "Subscript..." 
error message can be caused by all 
sorts of errors. If it should happen to 
you, then check very carefully that 
each array in the program is correctly 
dimensioned, and that you haven't made 
amistake in the spelling of the name 
of the array, either where it is 
dimensioned, or wherever it is used. If 
you do get the name of an array wrong 
in a dimension statement, the the error 
message will be "Array at line...." 
rather than the "Subscript..." message 
already described. This is because it 
appears to the computer that you have 
not dimensioned the array which you are 
now using. 


This error can also appear rather 
unexpectedly on some occasions. For 
example, one problem that can sometimes 
arise is in the mis-spelling of one of 
the built in Basic function names. 
Suppose you typed SIM(angle), instead 
of the correct SIN(angle), using the 
SIN function. You would then get the 
"Array..." error message because the 
computer thinks you are trying to use 
an array called SIM which hasn't been 
dimensioned. The computer can't read 
your mind to see what you really meant. 


MORE PROBLEMS WITH SPACES 

Last month we talked about some of 
the problems that can arise through the 
mishandling of spaces in a program. A 
further example of this occurs with 
arrays, and also with functions like 
SIN used above. You should NEVER leave 
a space between the name of an array or 
function and the following bracket. If 
this should happen by accident then the 
"No such variable..." error message may 
result. 


TWO DIMENSIONAL ARRAYS 


Up to now all our references have 
been to what are known as "one 
dimensional arrays", that is arrays 
which we can think of as a simple list 
of items. However, it is just as 
feasible to use two dimensional arrays, 
and these are best thought of as tables 
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with both rows and columns. For 
example, we might have a program which 
uses an array dimensioned as 
SALARY(5,12) which is used to store 
monthly salaries for each of five 
years. The array now has_~ two 
subscripts, one indicating the year and 
one the month. Thus the element 
SALARY (2,6) would be the salary for the 
6th month (June) in the second year. 


Although such two dimensional arrays 
are likely to appear more complicated 


Debugging programs is rather like 
trying to solve a mystery story or 'Who 
Dunnit'. The clues you need are all 
there if you only know where to look 
and what to look for. Just as with 
fictional tales, all is not what it 
seems and and you may find several red 
herrings on the way. Above all else, 
remain cool, calm and collected, and 
work logically and methodically. Use 
the power of the computer itself to 
help you as much as possible along the 
way by printing the values of variables 


when used in programs, particularly 
when the subscripts are not just simple 
numbers but are variables or 
expressions, the same problems are 


and subscripts etc. as described above. 


This completes this two part article 
on debugging, but it is an important 
likely to arise as already described, topic and one which we shall no doubt 
and the advice given then is just as return to again in due course. 
applicable. & 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS.HINTS HINTS 


ROUNDING DECIMALS - D.Gibson 

To round a decimal to the nearest integer, obtain the integer of the number after 
adding @.5 to it. Thus X$=INT(X+0.5) turns X into the nearest integer (whereas 
INT(X) would simply round xX down). Similarly, X%=(INT(X*10+0.5))/1@ rounds to the 
nearest decimal place, and X%=(INT(X*4+@.5))/4 rounds X to the nearest quarter. 


MODE CHANGE BY VDU COMMAND - J.Forshaw 

To change display mode from within a procedure, use the VDU22,n command where n 
is the number of the mode that you want. Basic will not normally allow you to use 
the MODE instruction within a procedure function. 


CAPS LOCK POKE - G.Edwards 

You can can poke to a location in memory to control the 'Caps Lock' mode of the 
Electron. ?&25A=&26 sets 'Caps Lock' on and ?&25A=&39 switches it off. (Don't forget 
the *FX202 commamd from last month's hints for a more official way to do this). 


SPOOLING GRAPHICS - N.Kelly 

Opening a spooled file before beginning a graphics program will save whatever is 
generated on to tape for playing back again another time. Type *SPOOL followed by 
the name of the file to be created and then run any program you wish that draws on 
the screen (you could include the *SPOOL instruction in the program). A file full of 
the characters that are sent to the screen will be created on tape (if you're using 
your cassette recorder). At the end of the program type *SPOOL to complete the 
saving operation. You can now run the graphics creation sequence through again 
without running the program simply by typing *EXEC followed by the file name of the 
file that you have just created. 
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DARTBOARD 


By J. Crombie 


Have you ever wondered how top dart players such as Eric Bristow and 
Jocky Wilson reach the heights of perfection when they play? Well, 
ELBUG provides one answer, would you believe, with a program that 
will help you play better than ever before, and maybe score that 


fabulous one hundred and eighty! 


Dartboard is a game for two players 
(though you can easily take both parts 
if you wish) using either the keyboard 
or joysticks (if you have an Acorn 
Plus-1 or similar joystick expansion 
fitted) to control your aim. If you 
choose to use joysticks then you may 
still use the keyboard for fine 
adjustments. 


This is the traditional game of 
darts where each player takes turns to 
throw three darts to reduce his score 
down from the starting value of 501, 
finishing on a double or a 'Bulls-eye'. 


You may use either a joystick or the 
keyboard (selected at the start of the 
match) to aim a dart. Then press a 
number key (1 to 9) to throw the dart. 
Select the relative strength of the 
throw by the size of the number, 1 
being the weakest and 9 being the 
strongest. 


The keys for controlling direction 
are 'Z' and 'X' for left and right, and 
'*' and '?' for up and down. 


As you throw your darts the computer 
will automatically count up the total 
of your three throws and display your 
score at the right-hand side of the 
screen. 


When a game has finished you can 
choose either to play another game by 
pressing the spacebar or see the result 
of the match displayed on the screen by 
pressing the Return key. 


PROGRAM NOTES 

The program is quite well structured 
using a number of clearly named 
procedures to do most of the work. 
These procedures are listed below with 
a brief description of the function of 
each. 


PROCboard Draws dartboard on 
screen. 

Draws one sector 
of the dartboard. 
Moves target point 
for dart using 
joystick or 
keyboard. 

Throws dart. 
Calculates dart 
score. 
PROCremovedarts Removes darts from 
board. 

Displays match 
result. 

Displays front 
page and selects 
joystick or 
keyboard control. 
Initialise sound 
envelopes, user- 
defined characters 
and variables. 


PROCsector 


PROCGnovesight 


PROCdart 
PROCtotal 


PROCendgame 


PROCkeyor joy 


PROCinit 


The main program loop is from line 
188 to 310 which is repeated until one 
player is the winner. 
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1@ REM PROGRAM DARTS 

2@ REM AUTHOR J.Crombie 

3@ REM VERSION E@.1 

46 REM ELBUG AUG/SEP. 1984 

508 REM PROGRAM SUBJECT TO COPYRIGHT 
68 : 

166 ON ERROR GOTO 2880 

116 MODE]: PROCkeyor joy 

128 CLS:VDU5:DIM SCORE%(2@) ,SUM(2) ,DX 
%(3) ,DY% (3) ,game% (2) 

138 PROCinit 

148 PROCboard 

15@ REPEAT 

168 COLOURG: PRINT" PLR1 
Ww 

17@ COLOUR3:VDU28,39,31,39,4 

188 REPEAT 

190 TIME=@: Player%=Player%+1 

200 IF Playert=3 Player%=1 

210 sum$=@:dart$=1 

226 REPEAT 

236 winner$=FALSE 

248 PROCmovesight (dart3) 

250 IF SUM(Player%)=sum% AND double%= 
1 THEN winner$=TRUE:GOTO318 

260 IF SUM(Player%)-sum%<2 THEN VDU4: 
PRINTTAB (6* (Player$-1)+1);"--- ";:VDU5 
: PROCremovedarts (dart$) :UNTIL winner%=F 
ALSE:GOTO310 

278 dart%=dart3+1 

286 UNTIL dart%>3 

298 PROCremovedarts (3) 

386 SUM(Player%) =SUM(Player%) -sum$:VD 
U4: PRINTTAB (6* (Player %-1) +1) ; SUM(Player 
%) ;SPC(2) 3: VDUS 

316 UNTIL winner’ 

328 VDU4:SOUND1,-15,508,18:SOUND1,-15, 
100,5:SOUND1,-15,200,5:PRINT''''''" WIN 
NER Player";Player3''''''''''sgame% 
(Player$) =game% (Player$) +1 

336 PRINT" PRESS KEY " 

346 A=GET:IF A=13 PROCendgame: END 

356 IF dart%=4 THEN PROCremovedarts (3 
) ELSE PROCremovedarts (dart) 

36GVDU28, 30,31 ,39,4,12:Player$=2: SUM 

(1) =581:SUM(2)=561 

376 UNTIL FALSE 

3808 END 

398 : 

1868 DEF PROCboard 

1018 FORI%=1 TO 26 

1828 PROCsector (1%,3,5080,508, 486) 

1038 PROCsector (I$,3*(I% MOD 2) ,508,50 
6,408) 

184G PROCsector (1$,3* (ABS((I$ MOD 2)-1 
)) ,586,580,365) 

1058 PROCsector (I$,3*(I% MOD 2) ,500,5G 
@,225) 

1868 PROCsector (1%, 3* (ABS((I% MOD 2)-1 
)) ,580,580, 200) 


PLR2 591 58 
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1876 NEXT 

1088 FOR I%=1 TO 20:PROCsector (1%,0,50 
@,5080,46) :PROCsector (1%$,1,500,500,15):N 
EXT 

1696 FOR I3=1 TO 26 

1108 MOVE450*SIN (RAD(18*I$-16) )+471,446 
*COS (RAD (18*I$-16) )+5@@:READ AS:PRINTAS 

1118 GCOLG, 2:MOVE430+1%, 1G000+I1%: PRINT" 
DARTS": GCOLG,1 

1128 NEXT 

1138 GCOLG, G:MOVE43G+1%,1000+1%: PRINT" 
DARTS" 

1148 RESTORE:FOR I%=1 TO 2@:READ SCORE 
%$(I%) sNEXT 

1158 VDU4,28,30,31,39,9,19,2,4,0,0,0:C 
OLOUR130:CLS 

1168 ENDPROC 

1178 : 

1188 DEFPROCsector (N%,C%,X%,Y%,S%) 

1198 GCOLG,C% 

1208 MOVEX$,Y% 

1216 MOVE S%*SIN(RAD(18* (N$-1) -9) )+X3%, 
S%*COS (RAD (18* (N$-1)-9) ) +¥3 

1226 PLOT85,S%*SIN(RAD(18*N%-9) )+X3,S3 
*COS (RAD (18*N$-9) ) +¥% 

1238 ENDPROC 

1246 : 

1256 DATA 20,1,18,4,13,6,19,15,2,17,3, 
19,7,16,8,11,14,9,12,5 

1266 : 

1278 DEFPROCmovesight (dar tno$%) 

1288 VDUS:F%=8 

1298 C%=A%$:D%=BS 

1306 IF kb% GOTO 1350 

1316 IF ADVAL(2* (Player$-1)+1)>50000 A 
S=A8-8 

1320 IF ADVAL(2* (Player%-1)+2)<8000 BS 
=B3-8 

1330 IF ADVAL(2* (Player%-1)+1)<8@00 AS 
=AS+8 

1340 IF ADVAL(2* (Player$-1)+2)>50600 B 
S=BS+8 

1356 IF INKEY-98 A%=A3-8 

1366 IF INKEY-67 AS=A$+8 

137@ IF INKEY-73 B%=B3+8 

1388 IF INKEY-105 B%=B3-8 

1396 IF A&<@ A&$=G ELSE IF A%>9006 A%=900 

1460 IF B&<@ BS=0 ELSE IF B%>9@0 B%=900 

1410 IF TIME>3@@ GOTO 1440 

1420 *FX15,1 

1438 GOTO145¢ 

1440 KEYS=INKEY(@):IF KEY%>48 AND KEY$% 
<58 THEN GCOL3,2:MOVEC$ ,D%:VDU224: PROCG 
art (A%,B%,dartno%) : ENDPROC 

1458 GCOL3,2:IF F%=1 MOVEC%S,D%:VDU224 

1460 FS=1:MOVEA$,B: VDU224 

1478 GOTO1296 

1480 : 

1498 DEFPROCdart (X%, Y3,dartno) 


1588 GCOL3,1 —> 
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1516 X%=X%+16+RND (32* (KEY8-&3@) )-8* (KE 
Y3-&30) :Y3=Y%3-12+RND (32* (KEY$-&3@) ) -8* ( 
KEY$-& 39) —12* (&3A-KEY$) 

1528 MOVEX%$-26 , Y$-20: DRAWX3+20 , Y3+20 

1538 MOVEX$-290, Y$+29: DRAWX$+20, Y3-26 

1548 DX% (dartno) =X%:DY% (dartno) =Y$ 

1558 SOUND@,-15,5,1 

1568 PROCtotal (X%,Y$) 

1578 ENDPROC 

1588 : 

1598 DEFPROCtotal (X%, Y3) 

1600 IFY3=500 Y3=499 

161@ ANGLES=DEGATN ( (X$-580) /(Y3-5@@) ) : 
radius%=SQR ( (X%-500) *2+ (Y3-50@) *2) 

1628 IF Y%-5@0<@ THEN ANGLES=ANGLE3+18 
@ ELSE IF ANGLE$<-9 THEN ANGLES=ANGLES+ 
360 

1638 SEC%=(ANGLE$+9) /18 

1649 DARTSCORE$=SCORE$ (SEC%+1) :double% 
=G 

1650 IF radius$<4@6 AND radius%>365 TH 
EN DARTSCORES=DARTSCORE$* 2 :double%=1 

1660 IF radius$>20@ AND radius%<225 TH 
EN DARTSCORE%=DARTSCORES$* 3 

1670 IF radius$>14 AND radius%<4@ THEN 

DARTSCORE%=25 

1680 IF radius$<15 THEN DARTSCORE$=50: 
double$=1 

1698 IF radius%>406 THEN DARTSCORE%=0 

1768 sum%=sum$+DARTSCORES 

1718 ENDPROC 

1728 : 

1738 DEF PROCremovedarts (dartno$) 

1748 GCOL3,1 

175@ FORI$=1 TO dartno% 

1766 MOVEDX$ (I$) -26,DY% (I$) -20: DRAWDX3 
(1%) +20,DY% (1%) +20 

1778 MOVEDX$ (I$) -28,DY% (I$) +20: DRAWDX% 
(13) +28,DY%$ (I$) -20 

1788 NEXT 

1796 ENDPROC 

1886 : 

1810 DEFPROCendgame 


33 


SE SS ET ET aS 


1828 VDU22,1 

1838 COLOUR]: PRINTTAB (15,4) ;"DARTS" 

1848 SOUND1,-15,19,5:SOUND1,-15,50,5:S 
OUND1 ,-15,25,18 

1858 COLOUR2: PRINTTAB(5,12);"Player 1 
has won ";game%(1);" games" 

1860 COLOUR2: PRINTTAB (5,14) ;"Player 2 
has won ";game%(2);"" games" 

1878 COLOUR1:IF game%(1)=game%(2) THEN 

PRINTTAB(1,20);"I therefore declare th 
e contest a draw"'':ENDPROC 

1886 PRINTTAB(1,2@);"I therefore declar 
e the winner ";:IF game%(1)>game%(2) THE 
N PRINT"Player 1" ELSE PRINT"Player 2" 

1896 ENDPROC 

1988 : 

1916 DEFPROCkeyor joy 

1928 VDU23;,1,0;0;0;G; 

1938 COLOUR]: PRINTTAB (12,3) "Dartboard" 

1948 COLOUR2: PRINTTAB(11,6)"by J.Cromb 
ie" 

1958 COLOUR3: PRINTTAB(9,12)"Are you pl 
aying"''TAB(1@)"from Keyboard" 

1968 PRINTTAB(12)"or Joystick" 

1976 REPEAT: VDU7 

1988 COLOUR2: PRINTTAB (15,17) "?"; 

1998 GS=GETS: PRINTTAB(19,17)GS$ 

2066 UNTIL GS="K" OR GS$="J" 

2010 IF GS="K" kb%=TRUE ELSE kb%=FALSE 
2026 ENDPROC 

2030 : 

2048 DEFPROCinit 

2058 VDU23,224,8,8,8,255,8,8,8,8:A%=50 
@:B$=500:SUM(1) =501:SUM(2) =501:@%=@0:Pla 
yer%=2:game% (1) =@:game% (2) =G 

2068 ENDPROC 

2076 : 

2686 ON ERROR OFF 

2698 MODE 6 

2190 IF ERR=17 END 

2110 REPORT: PRINT" at line ";ERL 

2128 END 


POINTS ARISING 


SOUND ENVELOPE EDITOR 

In the update to the Sound Envelope Editor that we published in the June issue of 
ELBUG, an inexplicable error crept in. The NEXTF% contained in line 360 is quite 
redundant and should be omitted if you use this correction. @ 


737 FLIGHT SIMULATOR 

In our review of the 737 Flight Simulator by Salamander Software we obviously 
got carried away by the excellence of the display when we referred to the 
accompanying engine noise. In fact, the Electron version of this simulation does not 
have this feature. Our apologies if we inadvertantly misled anyone over this. @ 
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BACK ISSUES _AND SUBSCRIPTIONS 


BACK ISSUES (Members only) 

All back issues will be kept in print 
(from November 1983). Send 9@p _ per 
issue PLUS an AS SAE to the 
subscriptions address. Back copies of 
BEEBUG are available to ELBUG members 
at this same price. This offer is for 
members only, so it is ESSENTIAL to 
quote your membership number with your 
order. Please note that the advertising 
supplements are not supplied with back 


SUBSCRIPTIONS 


Send all applications for membership, 
and subscription queries to the 
subscriptions address. 


MEMBERSHIP COSTS: 
U.K. 
£5.98 for 6 months (5 issues) 
£9.98 for 1 year (10 issues) 
Eire and Europe 
Membership £16 for one year. 


Middle East £19 
Americas and Africa £21 
Elsewhere £23 
Payments in Sterling preferred. 


SOFTWARE (Members only) 


issues. 


Subscription and Software Address 


ELBUG 
PO BOX 109 
High Wycombe 
Bucks 


This is available from the software 


address. 


MAGAZINE CONTRIBUTIONS 
AND TECHNICAL QUERIES 


Please send all contributions and 
technical queries to the editorial 
address opposite. All contributions 
published in the magazine will be paid 
for at the rate of £25 per page. 


Editorial Address 


ELBUG 
PO Box 598 
St Albans 

Herts 


We will also pay £1@ for the best Hint 
or Tip that we publish, and £5 to the 
next best. Please send all editorial 
material to the editorial address 
opposite. If you require a reply it is 
essential to quote your membership 
number and enclose an SAE. 


ELBUG MAGAZINE is produced by BEEBUG Publications Ltd. 

Editor: Mike Williams. 

Production Editor: Phyllida Vanstone. 

Technical Assistants David Fell, Nigel Harris and Alan Webster. 

Managing Editor: Lee Calcraft. 

Thanks are due to Sheridan Williams, and Adrien Calcraft for assistance with this 
issue. 


All rights reserved. No part of this publication may be reproduced without prior 
written permission of the Publisher. The Publisher cannot accept any responsibility, 
whatsoever, for errors in articles, programs, or advertisements published. The 
opinions expressed on the pages of this journal are those of the authors and do not 
necessarily represent those of the Publisher, BEEBUG Publications 
Limited. BEEBUG Publications LTD (c) 1984. 
Sf ee Ee 
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New Elbug Binders 


We have produced an attractive 
hard-backed binder for the 
ELBUG magazine. These 
binders are green in colour 
with “ELBUG” in gold lettering 
on the spine and allow for the 
whole of one volume of the 
magazine to be stored as a 
single reference book. 


Each binder will accommodate 
10 ELBUG magazines, andis 
supplied with 12 wires to 
enable the index and the latest 
copy of the supplement to be 
included within the binder if 
required. Individual issues may 
be easily added and removed, 
allowing for the latest volume 
to be filed as it arrives. 


The price of the new ELBUG binder is £3.90 including VAT, 
please add 50p post and packing for delivery within the U.K. 
Overseas members please send the same amount, this will 
cover the extra postage but not VAT. 

Plese send to: 

BEEBUGOFT, PO BOX 109, High Wycombe, Bucks, HP10 8HQ 
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THE BEST OF ELBUG ON CASSETTE 


Many of the best programs published in ELBUG have been collected together and 
published by Penguin Books under the name "Games and other programs for the Acorn 
Electron" at £3.95. This book is part of the Penguin Acorn Computer Library and at 
present there is just one other title available though others are planned. 


There are 26 programs in all in four different categories: 

Action Games = 
Munch-Man Mars Lander Invasion 
Robot Attack Hedgehog 


Thought games 
Higher/Lower Five-Dice , Life 
Anagrams Return of the Diamond 


Visual Displays 
Union Jack Square Dance Ellipto 
Screenplay 3-D Rotation 


Utilities 
Sound Wizard Bad Program Lister 
3-D Lettering Bad Program Rescue 
Double Height Text 


All 2@ programs are now available on cassette from our software address (in High 
Wycombe) price £7 to members and £9 to non-members, plus 5@p post & packing in 
either case. 


ELBUG MAGAZINE CASSETTE 


‘To gave wear and tear on fingers and Drain, we offer, each month, « cassetwe of the programs feavured 

the latest edition of ELSUG, The first program on each tape is a menu program detailing the tape's 
contents, and allowing the selection of individual programs. The tapes are produced to a high technical 
standard by the proceas used for the BEEBUGSOFT range of titles. 


Magazine cassettes have been produced for each issue of ELBUG from Volume | Number 1 onwards and 
ane all available from stock, priosd £3.00 each inchusive of VAT. See below for ordering information 


10.9) 
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MAGAZINE CASSETTE SUBSCRIPTION 


We are also able to offer ELBUG members subscription to the magazine cassette, Unis gives the added 
advantage of receiving the cassette at around the same tme as the magazine each month Subscriptions 
may either be for & period of | year or 6 months (NOTE Magazine cassettes are produced 10 umes each 
year), 


‘If required, subscriptions may be backdated as far as Volume l Number 1, so when applying ploape write 
to Uve addrens below quoting your membership number and the iasue from which you would like your 
mubsoription to start, 


MAGAZINE CASSETTE ORDERING INFORMATION 


Individual ELBUG Magazine Cassettes £3 00 
PY P Please add SOp for the first ané30p for each subsequent cassette 
Oversess ortars: Please send the same amount, this will inchude the extra post but not VAT. 


Magazine Cassette Subsoription 
1 YEAR (10 iseues) (£33.00 Inehusive. O'SEAS £39.00 No VAT payable 
6 MONTHS (5 lagues) £17.00 Inclusive O'SEAS £20.00 No VAT payable 


Ploase be gure to specify that you require subscription to the ELBUG magazine cassette (as opposed to 
the BEESUG cassette), and enclose your membership number with « cheque made payable to 
BEEBUGSOFT 


Please send to 


BLBUG Magazine Cassette, BEEBUGSOFT, PO Box 109, High Wycombe, HP10 8%Q 


